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PREFACE 



INDUSTRY STANDARDS 



rC 



MANUAL ORGANIZATION 






This manual is intended for FORTRAN application programmers Mho 
need VS FORTRAN specific reference material to run V5 FORTRAN 
programs under OS/VSl, MVS (Nith or without TSO), DOS/VSE and 
Vri/370-CMS. It describes the use of these different operating 
systems Mith the VS FORTRAN compiler to process FORTRAN programs. 



The VS FORTRAN Compiler and Library program product is designed 
according to the specifications of the following industry 
standards^ as understood and interpreted by IBM as of June» 1980: 

American National Standard Programming Language FORTRAN, ANSI 
X3. 9-1978 (also known as FORTRAN 77) 

International Organization for Standardization ISO 1539-1980 
Programming Languages-FORTRAN 

These two standards are technically equivalent. In this 
manual, references to the current standard are references to 
these two standards. 

American Standard FORTRAN, X3. 9-1966 

International Organization for Standardization ISO R 
1539-1972 Programming Languages-FORTRAN 

These two standards are technically equivalent. In this 
manual, references to the old standard are references to 
these two standards. 

For both current and old standard language, a number of IBM 
extensions are also included in VS FORTRAN. In this book, 
references to current FORTRAN are references to the current 
standard plus the IBM extensions valid with it; references to old 
FORTRAN are references to the old standard plus the IBM extensions 
valid with it. 



This manual is organized for reference purposes. It is organized 
into five main parts; each of the first four parts describes 
FORTRAN-speci f ic system reference considerations for source 
programming, compilation, 1 ink-edi ting and loading, execution, 
and cataloged procedures. Part V, the Appendixes, contains useful 
supplementary information. The five parts are? 

• Part I. OS/VS System Services 

• Part II. DOS/VSE System Services 

• Part III. VM/370-CMS System Services 

• Part IV. 0S/VS2 TSO System Services 

• Part V. Appendixes 
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VS FORTRAN PUBLICATIONS 



The VS FORTRAN publications are designed to help you develop your 
programs with a minimum of Masted effort. 

This book, the VS FORTRAN Application Programming: System Services 
Reference Supplement * provides you with FORTRAN-speci f ic 
reference documentation for compiling, link-editing, and 
executing VS FORTRAN programs. 

The complete set of VS FORTRAN application programming 
publications follows. 

VS FORTRAN Application Programming : 

Qui de , SC26-3985— contains guidance information on designing, 
coding, debugging, testing, and executing VS FORTRAN programs 
written at the current language level = 

language Reference , GC26-3986 — gives you the semantic rules 
for coding VS FORTRAN programs when you're using current 
FORTRAN. 

Library Reference , SC26-3989 — gives you detailed information 
about the execution-time library subroutines. 

System Services Reference Supplement , SC26-3988 — contains 
FORTRAN-specific documentation. 

Source-Time Reference Summary , GX26-3731 — is a pocket-sized 
reference card containing current language formats and brief 
descriptions of the compiler options. 

Sy5tem/360 and Sy5tem/370 FORTRAN IV Language , GC28-6515 — gives 
you the rules for writing VS FORTRAN programs when you're using 
old FORTRAN. 

Figure 1 shows how these manuals should be used together. 
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RELATED PUBLICATIONS 



Detailed system information has been eliminated from the VS 
FORTRAN publications. Therefore* in order to use this set of 
manuals effect ively» you should have on hand one of the following 
sets of manuals depending on the system you are using. 



os/vs Publications 



OS/VSl JCL Reference * GC24-5099 

OS/VSl JCL Services , 6C24-5100 

OS/VSl Access Method Services , GC26-3840 

NVS Publications* If you are using MVS, the following additional 
manuals are needed. 

0S/VS2 Access Method Services , GC26-38^1 

0S/VS2 WVS JCL , GC28-0692 

TSO Publications: If you are using TSO> you Mill need the 
following publications: 

0S/VS2 TSO Terminal User's Guide , GC28-0645 

0S/VS2 TSO Command Language Reference , GC28-0646 

0S/VS2 TSO Terminal Monitor Program and Service Routines 
Logic , SY28-0650 



DOS/VSE Publications 



DOS/VSE System Con-^:rol Statements , GC33-5376 
DOS/VSE System Management Guide , GC33-5371 
Using VSE/VSAM Commands and Macros , SC24-5144 



VN/370-CI1S Publications 






IBM Virtual Machine Faci li tv/370? CMS Commands and Macro 
Reference , GC20-1818 

IBM Virtual Machine Faci li tv/370: Terminal User's Guide , 
GC20-1810 

IBM Virtual Machine Faci li tv/370t CP Command Reference for 
General Users , GC20-1820 
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SUMMARY OF AMENDMENTS 



3 JUNE 1981 



MISCELLANEOUS CHANGES 



• Additions have been made to "Source Programming 
Considerations." 

• The figure "Load Module Logical Units — DOS/VSE" has been 
r^uone . 

• DOS/VSE JCL has been corrected. 

• In the appendix* compiler option abbreviations Mere added. 
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OPTIMIZE COMPILER OPTION 



The compiler option* OPTIMIZECO)* is available Mith Release 1 of 
VS FORTRAN. Additional optimization features (OPTIMIZEC 1/2/3)), 
discussed in this manual* are planned for availability at a later 
time. 
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HoM job control statement and command formats are to be 
interpreted in this publication is discussed in the follouiing 
paragraphs. 

• Truncations and Abbreviations of Commands: klhere truncation 
or abbreviation of a command name is alloMed^ the shortest 
acceptable version is in uppercase letters. Houiever^ the CMS 
commands can be entered uith any combination of uppercase or 
lowercase letters. 

• UPPERCASE LETTERS, UORDS/AND NUMBERS: Must be coded in the 
statement exactly as shown. 

• LOUERCASE LETTERS AND MORDS: Represent variables, for Mhich 
programmer-supplied information is substituted. 

• SYMBOLS in the following list must be coded exactly as shown: 



apostrophe 


t 




asteri sk 


X 




comma 


, 




equal sign 


z 




parentheses 


( 


) 


peri od 


. 




slash 


/ 





(O 



HYPHENS (-): Join lowercase letters and words and symbols to 
form a single variable. 

LOGICAL OR SYMBOLS (|): Represent alternative choices from 
which one choice can be made. 

BRACES ({ }): Group required related items (such as 
alternative choices from which one choice is made). 

SQUARE BRACKETS (C ]): Group optional related items (such as 
alternative choices from which one choice can be made). 

UNDERSCORES (_) : Indicate the standard default option. (If 
the option is omitted, this is the option chosen.) 

ELLIPSES ( ... ): Specify that the preceding syntactical unit 
can optionally be repeated. (A syntactical unit is a single 
syntactical item, or a group of syntactical items, enclosed 
in braces or brackets.) 

SUPERSCRIPTS ( * ): Refer to a description in a footnote. 

BLANKS: Are used to improve the readability of the control 
statement definitions. They must not appear in an operand 
field, unless a definition explicitly states otherwise. 
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SOURCE PROGRAM CONSIDERATIONS 

The OPEN statement is required for VSAM and BDAM direct access 
files. What you specify in your job control statements must match 
Mhat is specified in the OPEN statement. 



VSAM FILE DEFINITIONS 



VSAM is a high-performance access method of OS/VS for use with 
direct-access storage. VSAM entry-sequenced and relative-record 
data sets can be processed by the VS FORTRAN programmer after they 
have been defined through the use of the VSAM utility program 
known as Access Method Services. 

A number of commands initiate the Access Method Services 
programs. However* only the DEFINE CLUSTER command is described 
here. For more detailed information on the other commands^ see 
OS/VSl Access Method Services . 

VS FORTRAN VSAM entry-sequenced files are equivalent to 
sequential data sets. A VSAM relative-record is equivalent to a 
direct access data set. 
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DEFINE CLUSTER 



The DEFINE CLUSTER command defines the attributes of all VSAM data 
sets and catalogs the data sets in the VSAM catalog. The format 
that follows applies only to the parameters for entry-sequenced 
and relative-record files. Only the required parameters and those 
of special interest to the VS FORTRAN programmer are given. For 
more detailed information regarding the DEFINE CLUSTER commands 
see OS/VS Access Method Services . 

Format 



Command 


Parameters 


DEFINE CLUSTER 


CLUSTER 

( NAME(entryname) 

CFILE(dname)] 

VOLUMES(volserr volser...] 

CNONINDEXEDl NUMBERED] 

RECORDS(primary C secondary])}) 



DEFZNE CLUSTER Parameters 

CLUSTER 



NAME 



(O 



FILE 



Is required and specifies that a cluster i s to be 
defined. CLUSTER is followed by the parameters 
specified for the cluster as a whole; these parameters 
are enclosed in parentheses. 

Specifies the name of the cluster and is required. 

The name may contain from 1 through 44 alphameric 
characters^ extended characters i2i, #y and I) > and the 
two special characters (the hyphen and the 12-0 
overpunch). Names containing more than eight 
characters must be segmented by periods; one to eight 
characters may be specified between periods. The first 
character of any name or name segment must be either an 
alphabetic or extended character. 

Specifies the name of the DD statement that identifies 
the devices and volumes to be used for space 
allocation. 

When the cluster is defined in a recoverable catalog* 
and FILE is specified as a parameter of CLUSTER* the 
FILE statement can identify all volumes on which space 
i s to be allocated. 

VOLUMES Specifies the volumes to contain the cluster or 

component* and is required. It can be specified for 
the cluster as a whole. 

NONINDEXED Specifies that the cluster being defined is for an 

entry-sequenced file. The data records can be accessed 
sequentially or by relative-byte address. 

NUMBERED Specifies that the cluster's organization is for 

relative record data. The data records are accessed by 
relative-record number. 

RECORDS Specifies the amount of space to be allocated to the 
cluster from the volume's available space. The amount 
of space allocated is the minimum number of tracks 
that are required to contain the specified number of 
records. 

For information on how and when to use DEFINE CLUSTER* see VS 
FORTRAN Application Programming^ Guide . 
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JOB PROCESSING— OS/VS ^ 

Three basic steps are taken to process a FORTRAN program: \j^ 

1. Compiling 

2. Linkage editing 

3. Load module execution (go step) 

The input to the compile step is called the source module. The 
output from the compile step is called an object module/ Mhich is 
the input to the link-edit step. The output of the link-edit step/ 
the load module> is one or more object modules Mith all external 
references resolved. The load module is the program that is 
executed in the go step. If the loader is used in place of the 
linkage editor/ the last tuio steps (link-edit and load module 
execution) are combined into one step. 

Each step is called a job step — the execution of one program. Each 
job step may be executed alone or in combination Mith other job 
steps as a job — an application involving one or more job steps. 
Hence> a job may consist of one step/ such as FORTRAN compiler 
execution/ or of many stepS/ such as compiler execution follouied 
by linkage editor execution and load module execution. 

The programmer defines the requirements of each job to the 
operating system through job control statements. 

JOB CONTROL STATEMENTS — OS/VS 

Job control statements provide a communications link betuieen the 
FORTRAN programmer and the operating system. The FORTRAN 

programmer uses these statements to define a job/ a job step \ 

within a job/ and data sets required by the job. For a complete f^ v 
description of job control language/ see OS/VS JCL Reference . WV 

This section describes the OS/VS job control statements. 

JOB 

DD 

EXEC 

PROC 

Delimiter 

Null (or end-of-job) 

Comment 

OS/VS Job Control statement sequence 

The order in which job control statements are used follows: 

// JOB statement 

// EXEC statement (VS FORTRAN compiler) 

// DD statements (as required for compilation) 

(source program to be compiled) 

/x End-of-Data statement (if source program is on cards) 

// EXEC statement (linkage editor) 

// DD statements (as required for link editing) 

(Link edit is performed) 

// EXEC statement (load module) 

// DD statements (as required for load module execution) 

(Input data to be processed) 

/x End-of-Data statement (if input data is on cards) 
// End-of-Job statement 

However/ for easy reference/ the job control statements are 
presented within this section in alphabetic order. 
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SPECZFYZNG JOB CONTROL STATEMENTS 



Job control statements are identified by the characters // in 
columns 1 and 2» except for the delimiter statements Mhich is 
identified by the characters /^ in columns 1 and 2> and the 
comments statements identified by the characters //*< in columns 
1» 2, and 3. The delimiter statement may contain optional comments 
preceded by one or more blanks. The null statement may contain 
only the tMO slashes; the remainder of the statement must be 
blank. The comments statement contains notes written by the 
programmer. The other three statements: JOB/ EXECs and DD^ can 
contain up to four fields; name» operation^ operands and 
comments. 

Figure 2 illustrates the format of job control statements. The 
brackets around some of the items shoutn indicate that those items 
are optional Mhen using the statement. 



Format 


Applicable Control 
Statements 


//Name Operation [Operand] CCommentl 


JOB 


//[Name] Operation Operand [Comment] 


EXECDD 


/x [Comment] 


delimiter 


// 


null (or end-of-job) 


//^ Comment 


comments 






Figure 2. Job Control Statement Formats 

name Assigns a name to the statements identifying it to 

other statements and to the operating system. The name 
field begins in column 3 immediately following the //. 

operation Identifies the type of control statements for examples 
JOBs DDs or EXEC. The operation field begins in any 
column after the name field and is preceded and 
followed by one or more blanks. 

operand Identifies system options requested by the programmer. 
The operand field begins in any column after the 
operation field and is preceded and followed by one or 
more blanks. Options are specified through one or more 
parameters separated by commas. Parameters may be 
either posi ti onal or keyword . 

Positional parameters must appear in a fixed order 
and are identifieds or given meanings by their 
position in that order. 

fCevword parameters are composed of an identifying 
keywords an equal sign (=)s and a value. 

Parameters may also comprise a number of subparameterss 
which can be either positional or keyword. 

comments The comments field may contain any information that is 
considered helpful. There is no required syntax for 
comments. Comments begin in any column after the 
operand field (or the /x in the delimiter statement) 
and are preceded by one or more blanks. 

All statements (except null) may be continued onto the succeeding 
card or card images using the following rules* 

• Interrupt the operands after a completed parameter or 

subparameters including the comma that follows its at or 
before column 71. 
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If comments are desvred in the same statement as an 
interrupted operand field and there is sufficient room» leave 
one or more spaces after the comma that follows the last 
parameter > then code the comments. 

For an interrupted comment » code any nonblank character in 
column 72. For an interrupted operandi the nonblank character 
in column 72 is optional. If a nonblank character is not coded 
in column 72 of an interrupted operandi but the conventions 
outlined in the next tMO items bcq folloMed» the next 
statement is treated as a continuation statement. 

Code the identifying characters // in columns 1 and 2 of the 
follouiing card or card image. 

Continue the interrupted operand beginning in any column from 
4 through 16. 
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JOB CONTROL STATEMENTS — OS/VS 



DO Control statement 



The DD statement describes data set control device and volume 
assignment. The DD statement is concerned with the data set* the 
records uiithin the data set» and the location of the data set. 



Format 



(C 



Name 


Operation 


Operand 


// (ddname) 

{procstep. ddname) 


DD 


Positional Parameters 

[DATA] 
[DUMMY] 

Keyword Parameters 

[{VOLUME} {SER=serial-number}] 

[{VOL} {REF=ddname}3 

[DDNAME=ddname] 
[{DSNAME} 

=dat a- set-name] 
[{DSN} 

[DISP=(subparameter-list)] 
[SYSOUT=x] 

[ LABEL = ( subparameter-1 i st) ] 

[C0PIES=number3 

[ SEP =( ddname [ , ddname] . . . ) ] 

[DLM=delimiter] 

[UNIT=(device[,SEP=(ddname, ...)])] 

[SPACE=(subparameter-li st)] 

[DCB = (subparameter-li st)] 



The DD statement has all the operands shown in the format above; 
however* only the required and FORTRAN specific operands &r& 
described here. For additional information see OS/VSl JCL 
Reference . 



DD statement Operands 

ddname 






Identifies the DD statement to other job control 
statements* and relates the data set to 
input/output statements in the FORTRAN source 
module. It is specified as 1 to 8 alphameric 
characters* the first of which must be alphabetic 
or one of the extended characters #* 3* or $. 

The DD statement defines VS FORTRAN load module 
data sets. The ddname format for data sets used 
in FORTRAN load module execution is: 

FTxxFyyy 

where xx i s the data set reference number and yyy 
is a FORTRAN sequence number (usually 001). The 
IBM-supplied ddnames are* 

FT05F001 - input to the programmer's load 
module 
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FT06F001 - printed output data 

FT07F001 - punched output data 

The remaining data set reference numbers are 
available to the programmer. The number of units 
available is installation dependent. 

The data set reference number is a numeric means 
of equating VS FORTRAN input/output statements 
with the proper data set definition. If the 
programmer uses cataloged procedures and the 
standard data set reference numbers there is no 
need to supply DD statements for those data sets; 
they are contained in the cataloged procedures. 

The FORTRAN sequence number refers to separate 
data sets that are read or written using the same 
data set reference number. The sequence number is 
incremented when (1) an END FILE statement 
without an intervening REMIND is executed and a 
subsequent URITE is issued with the same data set 
reference number or (2) the "END =" exit is taken 
following a READ and a subsequent READ or UlRITE 
is issued with the same data set reference 
number. 

procstep.ddname Identifies the DD statement in the particular 
jobstep identified as procstep. (Procstep 
identifies a step in a cataloged procedure.) 

Procstep and ddname are each specified as 1 to 8 
alphameric characters* the first of which must be 
alphabetic or one of the extended characters ff» 
«>» or $. Procstep and ddname are separated by a 
peri od ( . ) . 

X Indicates that the data appears in the input 

stream. 

Ulhen * i s used* 

• The data must appear immediately after the DD 
ii statement. 

• Only the DCB parameter has meaning on the DD 
statement. 



Oj 



aV'' 



DATA 



DUMMY 



DXSP 



Indicates that the data appears in the input 
stream and may contain job control statements 
that are to be read as data and not executed. 

Ulhen data i s used* 

• The data must immediately follow the DD DATA 
statement. 

• Only the DCB parameter has meaning on the DD 
statement. 

Identifies a data set on which no input/output 
operations are to be performed (such as to 
eliminate writing an output data set in a program 
segment that has already been tested). A READ to 
a DD DUMMY file returns an end-of-file condition 
on the first READ. 

Indi cates whether the data set is new or old* and 
whether it is to be kept or released at the end of 
the job step. 

DISP=(subparameter-li st) * where 
subparameter-li st indicates^ 
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• The disposition of the data set at the 
beginning of the job step* that is» whether 
OLD, NEW, SHR, or MOD. For example, a FORTRAN 
programmer may use SHR for source member 
input during the compile step, or MOD may be 
used to add to a sequential file. 

• The disposition to be made of the data set at 
the end of the job step; for example, whether 
to be kept, deleted, or passed to another job 
step, 

• The disposition to be made of the data set if 
abnormal termination occurs; for example, 
whether to be kept or deleted. 

Two subparameters that may be used by the FORTRAN 
programmer are'' 

SHR — describes existing data that resides on 
a direct-access volume and that is also 
available to other concurrently operating 
jobs. 

MOD — describes a sequential data set that is 
to be added to. Before the first input/output 
operation occurs, the data set will be 
automatically positioned after the last 
record. 

LABEL Assigns such information as labels, whether the 

data set is protected from unauthorized 
processing, and how long the data set should be 
kept. The subparameters of this operand of 
specific interest to the FORTRAN programmer are 
IN and OUT. The format and definition of these 
subparameters follow^ 

Format 

LABEL = (,SL, C, INI, OUT]) 

SL — specifies that the data set has standard 
system-created labels. 

IN — specifies that the data set i s to be 
processed for sequential input operations 
only. IN is recognized only if the first 
input/output operation is a READ. If it is 
not a READ, IN is ignored and both input and 
output operations are permitted; if it is a 
READ, any subsequent WRITE is treated as an 
error and job processing is terminated. 

OUT — specifies that the data set i s to be 
processed for sequential output operations 
only. OUT is recognized only if the first 
input/output operation is a WRITE. If it is 
not a WRITE, OUT is ignored and both input 
and output operations are permitted. If it is 
a WRITE, any subsequent READ is treated as an 
error and job processi ng is terminated. 

UNIT Identifies the input/output device or device 

class on which the data set resides. 

UNIT = (devi ceC ,SEP = (ddname, ...)]) , where device 
is a number or name identifying the device, and 
ddname is the name of another DD statement. 
SEP=ddnamG. . . is used only when the data set is 
not to share device access areas with the data 
set defined in ddname (see Appendix A). 
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DCB Identifies the characteristics of the records in ■ \ 

the data set. (f~>\} 

The format of the DCB subparameter is! 

Format 

DCB=( Cdata-set-name3 

C»RECFM=record-forinat] 

C,LRECL=record-length] 

C,BLKSIZE=block-length3 

C , BUFNO=number-of-buf f ersi 

C,BUF0FF=block-prefix3 

C # DEN =t ape-den s i ty] 

C »TRTCH= tape-recording- techniques] 

C /DSORG=di rect-access-organi zation] 

C »OPTCD=opti onal- services J 

For a complete discussion of the operands described here and other 
operands shoMn in the format* see OS/VSl JCL Reference . 



Direct-Access Data Set Considerations 



Any data set to be used during a direct-access* VSAM 
relative-record* or entry-sequenced file input/output operation 
must be described by an OPEN statement. Record characteristics 
described in the OPEN statement must agree ujith the space 
allocation requested in the DD statement. 

The data set reference number specified in any OPEN statement may 
refer to only one data set. In other Mords* references to separate 
data sets that are read or Nritten using the same data set 
reference number are not allouied. (For a more detailed 
explanation of the OPEN statement* see VS FORTRAN Application 
Programming' Language Reference . ) A^, 
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EXEC Control statement 



An EXEC statement indicates the beginning of a job step and names 
the program or cataloged procedure to be executed. It is used for 
compilation^ the linkage editor or loader^ and load module 
execution. 



Format 



Name 


Operation 


Operand 


//Cstepname] 


EXEC 


Positional Parameter 
CPROC=]procedure name 
P6M=pro gram- name 

Keyword Parameter? 

[ PARM= • opt i on C, option]. . * 

tACCT=( accounting- info rmat ion) ] 

CCOND=( ( code » operator [^stepname])( . . . )) 

tDPRTY=step-priority] 

CTII1E=(minutes/ seconds)] 

CREGION=region-size] 

[ADDRSPC=REAL|VIRT] 



(O 



The EXEC statement has all the operands shown in the format above; 
however> only the required and FORTRAN specific operands are 
described here. For additional information on the EXEC statements 
see OS/VSl JCL Reference . 

where: 

procedure-name Names the cataloged procedure to be executed. A 
procedure-name initiates the processing of a 
series of job control statements that has been 
previously written in the system libraryt 
SYSl.PROCLIBs and cataloged in the system catalog. 

PR0C=prOcedure-name to be executed^ or 
procedure-name indicates the name of the cataloged 
procedure. To specify the VS FORTRAN compiler^ you 
specify^ 



program-name 



PARN 



PROC=FORTVS 

Indicates the name of the program to be executed. 
PGM=program-name» where program-name is the name 
of the program. 

Specifies program options. Option names a 
particular program option that is to be in effect 
during processing. For a complete list of the 
compiler options that can be specified^ see 
Appendix B. 
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JOB Control statement 



The JOB statement indicates the beginning of a neM job and 
describes that job. 

Format 



Name 


Opera tf on 


Operand 


//jobname 


JOB 


Positional Parameters 

C , accounting- info rmati on] 

t # programmer-name] 

Keyword Parameters 

CMSGLEVEL=(x,y)] 

CCOND=(( code, operator). . . )] 

CCLASS=job-class] 

CPRTY=job-pri ori ty] 

[MSGCLASS=x] 

[REGION= region- size] 

CTIME=(minutes, seconds) ] 

CADDRSPC=REAL(VIRT] 



The job statement has all the operands shown above; however^ only 
the required and FORTRAN specific operands are discussed here. 
For additional information on the JOB statement, see OS/VSl JCL 
Reference . 

where: 

jobname Identifies the job to the operating system. It is 
one to eight alphameric characters, the first of 
which must be alphabetic or one of the extended 
alphabetic characters 11, 3, or $. 

accounting" info Identifies the account number or other accounting 
information relating to the job. Up to 142 
characters can be specified; any special 
characters other than the hyphen, must be 
enclosed in apostrophes. 

programmer-name Identifies the person submitting the job. Up to 
20 characters can be specified; any special 
characters other than the hyphen must be enclosed 
in apostrophes. 



Wy^ 



MSGLEVEL 



COND 



Specifies the type of system messages (for 
example, job control statements, diagnostic 
messages, termination messages) to be written as 
part of the output listing. 

MSGLEVEL = (x,y), where x is 0, 1, or 2, to 
indicate which job control statements and 
diagnostic messages are to be written, and y is 
or 1 to indicate whether termination messages are 
to be wri tten. 

Specifies which condition codes terminate 
processing. It helps the programmer reduce 
computing time by making job continuation 
dependent upon successful completion of a 
previous job step. 

The code parameter is a number between and 4095 
(usually 0, 4, 8, 12, or 16) and operator is a 
2-character value that represents a comparison to 
be made between code and return code i ssued by 
the operating system. Up to eight sets of codes 
and operators may be specified. 



%j/ 



) 
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The system issues a number* called a return code* 
at the end of each job step. The return code 
indicates hout well the job step ran; for example* 
whether it completed processing normally or 
Mhether error conditions Mere detected. The COND 
parameter indicates a comparison to be made 
betuieen the return code and the condition code 
specified in COND; if the condition is met* the 
job is terminated. 



^luii/ 



(0 
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PROC Statement 



The PROC statement is used to assign default values to symbolic 
parameters. 

A symbolic parameter appears in the operand field of a statement 
and stands as a symbol for a parameter^ a subparameter* or a 
value. Since the PROC statement deals only with symbolic 
parameters* the ampersand (&) that usually precedes symbolic 
parameters is omitted. 

Symbolic parameters are used to make a cataloged procedure easily 
modified uihen it is called. Values may be assigned to symbolic 
parameters uihen calling a cataloged procedure/ or the default 
value assigned by the PROC statement may remain in effect. 

Format 



Name 


Operation 


operand 


// Cname] 


PROC 


symbol i c-parameter=valuet , . . . ] 



Mhere: 
// [name] 

symbol ic-parameter=value 



Is the name of a cataloged procedure and 
i s optional . 

Identifies the values assigned to the 
symbolic parameter. See VS FORTRAN 
Application Programming? Guide for 
information on houi to use symbolic 
parameters. 
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LINKAGE EDITOR CONTROL STATEMENTS — OS/VS 



Linkage editor control statements specify an operation and one or 
more operands. 

The first column of a control statement must be left blank. The 
operation field begins in column 2 and specifies the name of the 
operation to be performed. The operand field must be separated 
from the operation field by at least one blank. The operand field 
specifies one or more operands separated by commas. No embedded 
blanks may appear in the field. Linkage editor control statements 
may be placed before^ betNeen» or after either modules or 
secondary input data sets. 

The INCLUDE and LIBRARY control statements specify secondary 
i nput . 



INCLUDE Linkage Editor Control Statement 



The INCLUDE statement specifies additional programs to be 
included as part of the load module. 

Format 



Operation 


Operand 


INCLUDE 


ddnameE (member-name 
[ ^membei — name] . . . ) ] 
[ , ddnameC (membei — name 
C , member-name] ...)]...] 



(C 



where: 
ddname 



Indicates the name of a DD statement specifying a 
library or a sequential data set. 



member-name Indicates the name of the member to be included. Mhen 
sequential data sets are specified^ membei — name is 
omi tted. 
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LIBRARY Linkage Editor control Statement 



The LIBRARY statement specifies additional libraries to be 
searched for object modules to be included in the load module. 

The LIBRARY statement differs from the INCLUDE statement in that 
libraries specified in the LIBRARY statement are not searched 
until all other references (except those reserved for the 
automatic call library) are completed by the linkage editor. A 
module specified in the INCLUDE statement is included 
immediately. 

Format: 



operation 


operand 


LIBRARY 


ddname (member-name 
C ^msmbsr-name] ^ ^ ) 
[ »ddname(member-name 
[ »member-name] ...)]...] 



where t 

ddname indicates the name of a DD statement specifying a 
library. 

member-name is the name of a member of the library. 



X>'' 
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COHPILER, LINKAGE EDITOR* AND LOADER DATA SETS — OS/VS 



COMPILER DATA SETS— OS/VS 



The compiler uses up to eight system data sets. Many of these data 
sets Brei defined in cataloged procedures. Figure 3 lists the 
function^ device typos, and alloMable device classes for each 
data set. 






ddname 


Function 


Device Types 


Applicable 
Device Class 


Defined In Cat- 
aloged Proce- 
dures Calling 
the Compiler 


SYSIN 


Reading input 
source data set 


Card reader 
Magnetic tape 
Direct access 


Input stream 
(defined as DD 
X, or DD DATA) 


No 


SYSLIB 


Storing INCLUDE 
data sets 
(Required if 
INCLUDE is 
speci f i ed) 


Direct access 


SYSDA 


No 


SYSLIN 


Creating an object 
module data set as 
compiler output 
and linkage editor 
input (Required if 
OBJECT is 
speci f ied) 


Direct access 
Magnetic tape 
Card punch 


SYSDA 
SYSSQ 
SYSCP 


Yes 


SYSPRINT 


Writing source* 
object, and cross 
reference 
listings, storage 
maps, messages 


Pri nter 
Magnetic tape 
Direct access 


A 
SYSSQ 


Yes 


SYSPUNCH 


Punching the 
object module deck 
(Required if DECK 
is specified) 


Card punch 
Magnetic tape 
Direct access 


B 

SYSCP 
SYSSQ 
SYSDA 


Yes 


SYSUDUMP 
SYSABEND 


Writing dump in 
event of abnormal 
termi nati on 
(Required if DUMP 
is specified) 


Printer 
Magnetic tape 
Direct access 


A 
SYSSQ 


No 


SYSTERM 


Writing error 
message and 
compi ler 
stati sties 
(Required if TERM 
is specified) 
1 i sting 


Printer 
Magnetic tape 
Direct access 


A 
SYSSQ 


Yes 



Figure 3. Compiler Data Sets 



Note: SYSPUNCH and SYSLIN may not be directed to the same card 
punch. 
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DCB Considerations 



The DCB subparameters define record characteristics of a data 
set. The follouiing table lists the DCB default values for compiler 
data set characteristics. 



/f~^) 



ddname 



LRECL RECFN BLKSZZE 



BUFNO 



SYSIN 


80 


FB 


80> 


2 


SYSPRINT 


137 


VBA 


3429» 


2 


SYSLIN 


80 


FB 


3200* 


2 


SYSPUNCH 


80 


FB 


3<»40» 


2 


SYSTERM 


121 


FB 


121 


2 



'These default blocksize values correspond to the BLKSIZE 
values specified on the DD statements in the distributed 
cataloaed orocedures. The comoi ler defaults to BLKSIZF - 
LRECL. 



Figure 4. DCB Default Table 






18 VS FORTRAN Application Programming! System Services Reference Supplement 






LINKAGE EDITOR DATA SETS — OS/VS 



The linkage editor generally uses five system data sets; others 
may be necessary if secondary input is specified. Secondary input 
is defined by the programmer; cataloged procedures do not supply 
the secondary input DD statements. 

Figure 5 lists the function* device types* and alloMable device 
classes for each data set. 



c 



ddname 


Function 


Device Types 


Applicable 
Device Class 


Defined in Cat- 
aloged Proce- 
dures calling 
the Linkage 
Editor 


SYSLIN 


Primary input 
data* generally 
output of the 
compi ler 


Direct access 
Magnetic tape 
Card reader 


SYSDA 

SYSSQ 

input stream 

(defined as DD X 

or DD DATA) 


Yes 


SYSLIB 


Automatic call 

library 

(SYSl.FORTLIB) 


Direct access 


SYSDA 


Yes 


SYSLMOD 


Link~edi t 
output (load 
module) 


Direct access 


SYSDA 


Yes 


SYSPRINT 


Writing 
li sti ngs* 
messages 


Printer 
Magnetic tape 
Direct access 


A 
SYSSQ 


Yes 


User-defined 


Addi tional 
libraries and 
object modules 


Direct access 
Magnetic tape 


SYSDA 
SYSSQ 


No 



Figure 5. Linkage Editor Data Sets 
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LOADER DATA SETS— OS/VS 



The loader normally uses six system data sets; other data sets may 
be defined to describe libraries and load module data sets. 
Figure 6 lists the function^ device types^ and allouiable device 
classes for each data set. 



Ci, 



ddname 


Funct i on 


Device Types 


Applicable 
Device Class 


Defined in Cat- 
aloged Proce- 
dures Calling 
the Loader 


SYSLIN 


Input data to 
linkage function* 
normally output of 
the compiler 


Direct access 
Magnetic tape 
Card reader 


SYSDA 
SYSSQ 

Input stream 
(defined as 
DD it) 


Yes 


SYSLIB 


Automatic call 

library 

(SYSl.FORTLIB) 


Direct access 


SYSDA 


Yes 


SYSLOUT 


Mriting listings 


Printer 
Magnetic tape 
Direct access 


A 
SYSSQ 


Yes 


SYSPRINT 


Mriting messages 


Printer 
Magnetic tape 
Direct access 


A 
SYSSQ 


No 


SYSIN 


Input data to load 
module function 


Card reader 

Magnetic tape 
Direct access 


Input stream 
(defined as 
DD 5() 
SYSSQ 
SYSDA 


No 


FT07F001 


Punched output 
data 


Card punch 


B 


Yes 


FTnnFnnn' 


User-defined data 
set 


Unit record 
Magnetic tape 
Direct access 


SYSSQ A,B 
SYSDA 


No 



O-^ 



Figure 6. Loader Data Sets 

Note to Figure 6: 

^nn and nnn cannot be set to 0. 
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LOAD NODULE EXECUTION DATA SETS — OS/VS 



The load module execution job step executes a load module. The 
load module may be passed directly from a preceding link-edit job 
step, or it may be called from a library of programs, or it may 
form part of the loader job step. 

The load module execution job step may use many data sets. 

Figure 7 lists the function, device types, and usage for each data 

set. 



FORTRAN 

Ref. 

Number 


ddname 


Function 


Device Type 


Usage 


5 


SYSIN 


Input data set 
to load module 


Card reader 
Magnetic tape 
Direct access 


Load module 
Input data 


5 


FT05F001 


Input data set 
to load module 


Card reader 
Magnetic tape 
Di rect access 


Load module 
Input data 


6 


FT06F001 


Printed output 
data 


Printer 
Magnetic tape 
Direct access 


Load module 
Output data 


7 


FT07F001 


Punched output 
data 


Card punch 
Magnetic tape 
Direct access 


Load module 
Output data 


0-4, 
8-99 


FTnnFnnn 


Sequential 
data set 


Unit record 
Magnetic tape 
Direct access 


Program 
data 


0-4, 
8-99 


FTnnFnnn 


Direct access 
data set 


Direct access 


Program 
data 


0-4, 
8-99 


FTnnFnnn 


Partitioned 
data set member 
using sequential 
access 


Direct access 


Load module 
Input data 



Figure 7. Load Module Execution Data Sets 



Programmer-Defined Data sets 



The SYSIN DD statements must be defined by the programmer to 
complete the description of the input data set begun by the DD 
statement FT05F001. If no input data set is to be submitted, the 
SYSIN DD statement is omitted and the operating system treats the 
FT05F001 DD statement as though DD DUMMY had been specified. 

The programmer must also ensure that the JCL for the load module 
execution step includes a DD statement for error code diagnostic 
output. This DD statement must be present when the data set is 
opened for each execution of a FORTRAN load module. Usually, the 
FT06F001 DD statement defines this data set; however, this 
assignment can be modified Mhen VS FORTRAN is installed. Check 
with your system administrator. 
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DCS Default Values for Load Nodule Execution Data Sets: The 
folloMing tables list the DCB default values for load module 
execution data sets. 



Sequential Data Sets 










ddname RECFHi' 


LRECL2 


BLKSZZE 


DEN 


8UFN0 


FTOSFyyy F 


80 


80 


- 


2 


FT06Fyyy UA 


133 


133 


- 


2 


FT07Fyyy F 


80 


80 


- 


2 


all others U 


— 


800 


2 


2 


*For records not under FORMAT 


control » 


the default is VS. 


*For records not under FORMAT 
than shoMn. 


controls 


the default is 4 less 



Direct Access Data 


Sets 




ddname 


RECFN 


LRECL or BLKSZZE 


BUFNO 


FTOSFyy 

FT06Fyyy 

FT07Fyyy 


F 
F 
F 


The value specified 
as the maximum size 
of a record in the 
OPEN statement. 


2 
2 
2 


all others 


F 




2 
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SOURCE PROGRAMMING CONSIDERATIONS 






(© 



In a FORTRAN source program* input and output devices are referred 
to by data set reference numbers. With this form of reference* an 
object program compiled from a VS FORTRAN source program is not 
dependent upon the availability of any specific device at 
execution time. 

A programmer can temporarily assign a logical unit name to a 
specific input/output device using an ASSGN job control 
statement. Programmers need not make assignments unless their 
requirements differ from the standard assignments. 

There is a direct correlation between the logical unit names* such 
as SYSIPT, SYSPCH, and SYSOOl, and the data set reference numbers 
used by a VS FORTRAN programmer. The first two columns of Figure 8 
show the DOS/VSE logical unit name and its associated data set 
reference number. Figure 8 also illustrates the relationship of 
logical unit names and data set reference numbers that are under 
systems other than DOS/VSE. 

The operator may assign available input/output devices. These are 
assigned to meet the logical unit requirements of the operating 
system. One device* for example* must be assigned as SYSIPT to 
serve as the system's main input unit. 

Hardware must support extended precision. 

• Uhen executing a program on DOS/VSE that uses extended 
precision and was compiled on MVS* VSl* or CMS 

• Mhen compiling on DOS/VSE a program that has extended 
precision constants combined in any arithmetic sense with any 
other kinds of constants 

FORTRAN object programs with asynchronous I/O cannot run on 
either DOS/VSE or CMS. 
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FORTRAN Logical unit 

Ref. 

Number 


DOS File Name 


Function 
(Primary) 




Device 
Type 





SYSOOO 




IJSYSOO 




Program 
data set 




Unit record 
Magnetic tape 
Direct access 


1 


SYSOOl 




IJSYSOl 




Program 
data set 




Unit record 
Magnetic tapo 
Direct access 


2 


SYS002 




IJSYS02 




Program 
data set 




Unit record 
Magnetic tape 
Direct access 


3 


SYS003 




IJSYS03 




Program 
data set 




Unit record 
Magnetic tape 
Direct access 


4 


SYSOOL 




IJSYS04 




Program 
data set 




Magnetic tape 
Direct access 


5 


SYSIPT 

or 
SYSIN 




IJSYSIP 




Input data 
to load mo 


set 
dule 


Unit record 
Magnetic tape 
Di rect access 


6 


SYSLST 




IJYSYLS 




Punched ou 
data 


tput 


Unit record 
Magnetic tape 
Direct access 


7 


SYSPCH 




IJSYSPC 




Printed output 
data 


Printer 
Magnetic tape 
Direct access 


8 

thru 
99 


SYSdOS 

thru 
SYS096 




IJSYS05 

thru 
IJSYS96 




Program 
data set 




Unit record 
Magnetic tape 
Di rect access 


Note: Units 9-99 
(IFYUATBL). See 
Customization. 


may be 
section 


added by rea ssembl 
"Using the VSFORTL 


ing the unit assignment table module 
Macro" in VS FORTRAN Installation and 



Figure 8. Load Module Logical Units — ^DOS/VSE 



Q) 






Cy 
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V8AM FILE P ROCESSING 



This section discusses hoM to define VSAM files* and hoM to use 
VSAM space management for sequential files. 



VSAM FILE DEFINITIONS 






o 



A VSAM file nav be suballocated* or unique. A suballocated file 
shares a data space with other files; a unique file has a data 
space to itself. 

VSAM treats all files as clusters. For entry-sequenced or 
relative-record files* a cluster consists of a data component 
only. Besides setting up a catalog entry for each component of a 
cluster* VSAM sets up a catalog entry for the cluster as a Nhole. 
This entry is the cluster name specified in the DEFINE command. 

To define a suballocated VSAM file* first define a data space* 
then use the DEFINE command Mith the CLUSTER parameter. VSAM 
suballocates space for the file in the data space set up and 
enters information about the file in a VSAM catalog. A file can be 
stored in more than one data space on the same volume or on 
different volumes. 

A unique VSAM file is defined by specifying the parameter UNIQUE 
and assigning space to the file Mith a space allocation parameter 
and the DLBL/EXTENT job control statements. The data space is 
acquired and assigned to the file concurrent Mith the file 
definition. However* no other file can occupy its data space(s). 
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DEFINE CLUSTER 



The DEFINE CLUSTER command is used to define entry- sequenced* 
relati ve-record» or VSAM-managed SAM files. For an 
entry-sequenced or a relative-record file* two entries are 
created* one for the cluster and one for the data component. For 
guidance information on VSAM-managed SAM files* see VS FORTRAN 
Application Proorammino: Guide. 

The format that follows lists the required parameters and those of 
special interest to the FORTRAN programmer. 

Format 



O 



Command 


Parameters 


DEFINE 


CLUSTER 

( NAME(entryname) 

FILE(dname) 

VOLUMESCvolserl volser...]) 

RECORDS 

RECORDSIZE 

[NONINDEXEDl NUMBERED] 



DEFINE CLUSTER Parameters 

CLUSTER 



Specifies that a cluster i s to be defined. CLUSTER is 
followed by the parameters specified for the cluster 
as a whole. 

NAME Specifies the name of a cluster or component and is 
required. The name may contain from 1 through 44 
alphameric characters* extended characters O* t* and 
$)* and two special characters (the hyphen and the 
12-0 overpunch). Names containing more than eight 
characters must be segmented by periods; one to eight 
characters may be specified between periods. The 
first character of any name or name segment must be 
either an alphabetic or an extended character. 

FILE Specifies the f i lename of the DLBL job control 

statement that* together with an EXTENT statement* 
identifies the logical units and volumes to be used 
for space allocation. The FILE parameter must be 
specified if UNIQUE is specified or if the cluster is 
cataloged in a recoverable catalog. 

NONINDEXED Specifies that the cluster being defined is for a 
entry-sequenced file. The data records can be 
accessed sequentially or by relative-byte address. 

NUMBERED Specifies that the cluster being defined is for a 
relative-record file. The records are accessed by 
relative-record number. 

VOLUMES Specifies the volumes to contain the cluster or 
component. Up to 123 volumes can be specified. A 
volume serial number (volser) may contain one to six 
alphameric* extended* and special characters. See 
Using VSE/VSAM Commands and Macros for additional 
information on the DEFINE CLUSTER command. 

RECORDS Specifies the number of records for which a space is 
to be allocated. 

RECORDSIZE Specifies the average and maximum length* in bytes* 
of the data record. The minimum record size that can 
be specified is one. 
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JOB PROCESSING — DOS/VSE 



Processing of programs under control of DOS/VSE is accomplished 
through job control statements that indicate whether a program is 
to be compiled* link-edited* and/or executed. 

This chapter describes the VS FORTRAN-specif ic job control 
statements required for compiling* link-editing* and executing VS 
FORTRAN programs under DOS/VSE. 



DOS/VSE JOB CONTROL STATEMENTS 



Compilation 


Linkage Editor 


Execution 


JOB 


JOB 


JOB 


EXEC FORTVS 


EXEC LINKEDT 


EXEC program-name 


ASSGN 


ACTION^ 




CLOSE 


ENTRY 1 




DLBL 


INCLUDE* 




EXTENT 


PHASE* 




OPTION 






TLBL 







*These are linkage editor control statements. 

DOS/VSE Job Control statement Sequence 

The order in uihich job control statements bvq used follows: 



(O 



(sets link option) 



// JOB statement 
// OPTION LINK 

or 
// OPTION CATAL (sets link option and catalogs phase) 
// EXEC statement (VS FORTRAN compiler) 

(VS FORTRAN source program) 
/x Statement (if source program is in-line) 

// ASSGN Statements (as required for linkage editing) 
// DLBL/TLBL statements (as required for linkage editing) 
// EXEC statement (linkage editor) 

(Linkage Editor execution) 
// ASSGN statements (as required for execution) 
// DLBL/TLBL statements (as required for execution) 
// EXTENT statements (as required for execution) 
// EXEC statement (load module) 

(Input Data to be processed) 
/x End-of-Data Statement (if input data is in-line) 
/* End-of-Job Statement 

HoMever* for easy reference the formats and functions of the job 
control statements are presented in alphabetic order. For a more 
detailed description of the job control statements* see DOS/VSE 
System Control Statements . 
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ASSGN Control statement 



The ASSGN statement temporarily assigns a logical input/output 
unit to a physical device. Multiple logical units sre allowed to 
be assigned to one physical unit Mi thin the same partition. Only 
DASD can be assigned to (shared by) several partitions 
concurrently. 

The job control statement remains in effect only until the next 
change in assignment or until end of job* whichever occurs first. 
At the completion of a job» a temporary assignment is 
automatically restored to the permanent assignment for the 
logical unit. 



/If Ts 



ASSGN is required only when you assign a 
from the predefined unit table. 

Format 



logical unit different 



ID 


Operation 


Operands 


// 


ASSGN 


SYSxxx, 


Ccuu) 

(address-list) 

CUA} 

{IGN} 

{SYSyyy} 

{device-class} 

{device-type} 



The ASSGN statement has all the operands shown in the format 
above; however* only the required and FORTRAN specific operands 
are described here. For additional information on the ASSGN 
statement, see DOS/VSE System Control Statements . 

Where: 

SYSxxx Is required and indicates the name of the logical 

unit to be used. If one of the system logical units 
SYSIPT, SYSLST, or SYSPCH is assigned to a disk, 
the assignment must be permanent and follow the 
DLBL and EXTENT statements. 

There is a direct correlation between the logical 
unit names, such as SYSOOl, and the data set 
reference numbers used by the VS FORTRAN 
programmer as shown in Figure 8. 

CUU Indicates the channel and unit number of the 

device to be used: 

c = channel number 

uu = unit number 

(address list) Specifies a list of up to seven device addresses in 
the form cuu, separated by commas and enclosed in 
parentheses. 

For disks, if SHR is specified, the first unit in 
the list is assigned, even if previously assigned. 



V. 



UA 



IGN 



Specifies that the logical unit is not to be 
assigned to any device. 

Any operation attempted on an unassigned device 
causes immediate job cancellation. 

Indicates that the specified logical unit is not 
to be assigned to any device and that all source 
program references for that unit are to be ignored 
(the job will not be cancelled). This allows you 
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to disable a logical unit that is used in a program 
Mithout removing the code for that unit. You can 
then execute the program as if the unit did not 
exi st. 

Do not specify with SYSRDR, SYSIPT, SYSIN, or 
SYSCLB. 

SYSyyy This may be any system or programmer logical unit. 
If this operand is specified* SYSxxx is assigned 
to the same device as SYSyyy is currently 
assi gned. 

device-class Specifies the following devices supported by 
DOS/VSE: 

READER 

PRINTER 

PUNCH 

TAPE 

DISK 

FBA 

device-type Is any supported device as shown in Appendix A 
under the device-class specification. 

This operand should be used only in specifying a 
specific type of device* and not in the physical 
unit. 



(O 
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CLOSE Control statement 



The CLOSE statement is used to close either a programmer logical 
unit assigned to tape or a system logical unit assigned to disk. 

The logical unit can optionally be reassigned to another device* 
unassigned* or* in the case of a tape file* suitched to an 
alternate unit. Uihen SYSxxx is a system logical unit (SYSLST* 
SYSPCH* etc.)> one of the optional operands must be specified. 
Ulhen closing a programmer logical unit* no optional operands need 
be specified. When none is specified* the programmer logical unit 
is closed and the assignment remains unchanged. 

Format 



^,] 
\^-" 



ID 


Operation 


Operands 


[//3 


CLOSE 


.#iW^*\A# l.*l>UUJ 

[*ss] 

[*UA] 

CIGN] 

CALT] 

CSYSyyy] 



The CLOSE statement has all the operands shoun in the format 
above; hoMever* only the required and FORTRAN specific operands 
ar& described here. For additional information on the CLOSE 
statement* see DOS/VSE System Control Statements . 



Where; 

[//] CLOSE 
SYSxxx* 

cuu 



ss 



UA 



ZGN 



Is specified as shoMn. 

Indicates the name of the logical unit to be closed. 
It can be SYSLST, SYSPCH* or programmer logical 
units. 

Indicates* in hexadecimal* the channel and unit 
number of the device to be used after the specified 
unit is closed. In the case of a system logical unit* 
the neui unit Mill be opened if it is either a disk* or 
a magnetic tape at load point. 

Indicates tape mode specifications. If the field is 
not specified* the system assumes 90 for 7-track 
tapes and CO for 9~track tapes. 

Specifies that the logical unit is not to be assigned 
to any device after the file has been closed. 

Any operation attempted on this device causes 
immediate job cancellation. 

Indicates that the logical unit is not to be assigned 
to any device and that all program references to it 
are to be ignored until a neM ASS6N is given for the 
unit* or IPL is performed. 

This operand is invalid for SYSLST. 



H_y ■■ 



30 



VS FORTRAN Application Programming: System Services Reference Supplement 



DLBL Control statement 



The DLBL statement contains file label information for disk label 
checking and creation. The file name must be specified on the DLBL 
statement. All other entries ar& optional. However, if any of the 
subsequent operands are used, a comma must be inserted for each 
positional operand that is omitted. 

Format 



ID 


Operation 


Operand 


// 


DLBL 


f i lename, C 'f i le-ID* 3 , tdate], [codes] 
[ , DSF] [ ,BUFSP=n] C ,CAT=f i lenamel 
CBLK5IZE=n]C,CISIZE=n] 






The DLBL statement has all the operands shown in the format above; 
however, only the required and FORTRAN specific operands will be 
described here. For additional information on the DLBL statement 
see D OS/VSE System Control Statements . 



where; 
filename 



•f11e-ID» 



codes 



CAT=f llename 



Is required and must correspond to the DOS/VSE 
logical unit. (See DOS/VSE Logical Unit Name 
column in Figure 8.) It can be from one to seven 
alphameric characters, the first of which must be 
alphabetic. 

Indicates the unique name associated with the file 
on the volume. If the field is omitted, the 
f i lename i s used. 

It can be from 1 to 44 alphameric characters 
enclosed in apostrophes, including: 

• 'file-ID* (1 through 35 characters) 

• If used, generation number and version number 

• If fewer than 44 characters, the field is 
left-justified and padded with blanks. 

Indicates the type of file label to be used. It is 
a 2- to 4- character field that can be specified as 
follows: 

SD - for seqential disk 

M - for direct access 

VSAM - for all Virtual Storage Access Method 
files 

If the field is omitted, sequential disk (SD) is 
assumed. 

This operand is only valid in a DLBL statement for 
a VSAM file. It specifies the filename (1 to 7 
alphameric characters) of the DLBL statement for 
the catalog owning this VSAM file. The system 
searches only this catalog for the file-ID when 
the VSAM file is to be opened. Specify this 
operand only if you want to override the system's 
assumption that the job catalog or, if there is no 
job catalog, that the master catalog owns the 
file. 
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EXEC Control statement 



Tho EXEC statement indicates either* 

• The end of control information for job step and the beginning 
of execution of a program^ in Mhich case it must be the last 
statement processed before a job step is executed^ or 

• That a cataloged procedure i s to be retrieved from the 
procedure library by job control. In this case> other 
statements may folloM EXEC. 

Format 



/f~>. 



ID 


Operation 


Operand 


C//3 


EXEC 


[[PGM=]progname] 

L>KtALJ L»SIZt=sizeJL,Gu] 

[,PARM='value'3 


C//3 


EXEC 


PROC=procname[ , OV] 



The EXEC statement has all the operands shouin in the format above; 
hoMever* only the required and FORTRAN specific operands are 
described here. For additional information on the EXEC statement 
see DOS/VSE System Control Statements . 



Mheret 
PGN=progname 



Represents the name of the program in the core 
image library to be executed. The program name 
corresponds to the first or only phase of the 
program in the library. If the program to be 
executed has just been processed by the linkage 
editor* the program name is omitted and the PGM 
keyword cannot be used. 

To execute the VS FORTRAN compiler* you specify! 



\^j^ ) 



PGI1=VF0RTRAN, SIZE=AUTO 

REAL Indicates that the job step started by EXEC Mill be 

executed in real mode. If REAL is not specified* 
the job step is always executed in virtual mode. 

SIZE^^sfze Defines how large a partition is needed for the 

program to be executed. The SIZE parameter can be 
specified in combination with REAL or without REAL. 

If specified with REAL* it gives the size of that 
part of the real address area of the partition that 
will be needed by the job step. 

If the SIZE parameter is omitted and REAL is 
specified* the entire real address area of the 
partition is reserved for the job step. 

If SIZE is used without REAL* it specifies the size 
of that part of the virtual partition that will be 
directly available to the job step. 

SIZE (without REAL) must always be specified for 
VSAM files. 

AUTO indicates that the program size* as calculated 
by the system from information in the core image 
directory* i s to be taken as the value for SIZE. 



)) 
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GO Specifies* for a language translator step* that the 

program i s to be link-edited and executed 
automatically after it has been compiled. Only the 
source program data and any additional input data 
for the execution step aro required after the 
language translator step. If a serious error is 
encountered in either the language translator step 
or the link-edit step> the input stream is flushed 
to the end-of-job (/&) statement. 

PARN= 'value' Specifies information to be passed to the program 
at execution. *value* can be up to 100 characters 
in length* enclosed by apostrophes. (The enclosing 
apostrophes are not passed to the program.) An 
apostrophe Mi thin value must be coded as tuo 
apostrophes. 

Use this field to specify the compiler options 
documented in Appendix B. 

PROC=procname Indicates the name of the procedure to retrieved 
from the procedure library. 

OV Indicates that overriding statements folloM EXEC. 

The overriding statements must be submitted on the 
same device as EXEC PROC. 

If you execute a nonending job from the procedure 
library* you cannot update the procedure library. 



(O 
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EXTENT control statement 



The EXTENT statement defines each data Br&a or extent of a file. 
It is required for output files. For output files» one EXTENT 
statement must follow the DLBL statement. 

Certain fields of the EXTENT statement may be omitted. Since these 
fields have no specific default values^ the system Mill use 
information from previous EXTENT statements. However^ if no 
previous EXTENT statement exists* an error Mill be produced and 
further processing Mill not occur. 



ID 


Operation 


Operand 


// 


EXTENT 


[logical unit] 

[^serial no.] 

[»type] 

[, sequence no. ] 

[^relative track | block] 

[*no. of tracks | blocks] 

[^split cylinder tracks] 



The EXTENT statement has all the operands shoMn in the format 
above; however » only the required and FORTRAN specific operands 
are described here. For additional information on the EXTENT 
statement » see DOS/VSE System Control Statements. 



Mhere: 
logical unft 



serial no. 



type 



Indicates the name of the logical unit of 
the volume for which this extent is 
effective. It is specified as six 
alphameric characters in the form SYSxxx. 
This field is not required for VS FORTRAN 
files. 

Indicates the volume serial number for 
which this extent is effective. It is 
specified as 1 to 6 numeric characters. If 
fewer than six characters are used> the 
field is padded to the left with zeros. If 
the field is omitted* the volume serial 
number of the preceding EXTENT* if any* is 
used. Otherwise* the serial number is not 
checked* and files may be destroyed or 
altered if the wrong volume is mounted. 



Indicates the type of extent to be used, 
is specified as one of the following 
numeric characters^ 

l=data area (no split cylinder) 

8=data area (split cylinder) 

If omitted* 1 is assumed. 

split cylinder tracks Indicates the upper track number for the 

split cylinder extents (see Appendix A). 



It 
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JOB Control statement 



The JOB statement specifies the beginning of a job and must be the 
first statement in the job deck. 

Format 



ZD 


Operation 


Operand 


// 


JOB 


jobname [accounting information] 



The JOB statement has all the operands shouin in the format above; 
hoMever» only the required and FORTRAN specific operands are 
described here. For additional information on the JOB statement* 
see DOS/VSE System Control Statements . 



Where; 
jobname 



accounting 
information 



Is the symbolic name of the job. 
It is required and must be from 1 
alphameric characters. 



to 8 



If accounting information is specified* it 
must be separated from the job name by a 
single blank. 



.^tk*^ 
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OPTION control statement 



The OPTION statement alloMs the programmer to specify one or more 
job control options which temporari ly override the system 
defaults. These options Mill remain in effect until a contrary 
option is encountered or until a /& control statement is read. 
Houiever^ if more than one linkage edit step occurs in a single 
job, OPTION LINK or OPTION CATAL must be specified for each 
execution of the linkage editor. All options are reset to the 
installation standard at the end of a job. If the statement is not 
supplied, the standard options apply. 

VS FORTRAN compiler options are accepted only as a PARN field of 
the EXEC statement or on a ^PROCESS statement. 

Format 



O^ 



ID 


Operation 


Operand 


// 


OPTION 


opt ionic ,option2, . . . ] 



Any number of operands may be specified on the OPTION statement 
If multiple options ara indicated, they should be separated by 
commas. For a complete list of the compiler options that can be 
specified in the EXEC statement, see Appendix B. Some of the 
system options that can be specified aro'' 



where: 
CATAL 

DUMP 



A phase or program is cataloged in the core image 
library at the completion of a link-edit run. CATAL 
also sets the LINK option. 

Dumps the partition, the system GETVIS area, and the 
SVA phase in error if the error occurred in the SVA. 

PARTDUHP Dumps the partition in Mhich the program is executing. 

NODUHP Suppresses the DUMP or PARTDUMP option. 

LINK Indicates that the object module is to be link-edited. 

Ulhen the LINK option is used, the output of the language 
translator is written on SYSLNK. The LINK option must 
always precede an EXEC LNKEDT statement in the input 
stream. 

NOLINK Suppresses the LINK option. The language translators 
can also suppress the LINK option if the problem 
program contains an error that would preclude the 
successful execution of a problem program. 

For a detailed description of this job control statement, see 
DOS/VSE System Control Statements . 
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TLBL Control Statement 



The TLBL statement supplies file label information for the tape 
files Mith standard labels. The TLBL statement may be used ujith 
both EBCDIC or ASCII files. The only required entry is the 
filename. The default options described apply only to output 
files. If an option is omitted for an input file» the field is 
ignored. An omitted field is signified by a comma. 

Format 



ID 


Operation 


Operand 


// 


TLBL 


filename [, 'file-ID'] 
[.date] 

C »f i le- serial -no. ]* 
C t set-i denti f i erl* 
[^volume sequence no.] 
C »f i le-secti on-number] 
Ctdata set sequence no.] 
[^generation no.] 
[ » version no. ] 



(C 



^Indicates EBCDIC files 
^Indicates ASCII files 



The DLBL statement has all the operands shown in the format above; 
hoMever^ only the required and FORTRAN specific operands sret 
described here. For additional information* see DOS/VSE System 
Control Statements . 



Where; 
filename 

•file-ID' 



f lle-serlal-no. (EBCDIC) 



set- Identifier (ASCII) 



Is required and corresponds to the 
DOS/VSE logical unit. 

Indicates the name associated Mith the 
file on the volume. It is specified from 
1 to 17 alphameric characters enclosed 
in apostrophes and may contain embedded 
blanks. If omitted on an output file, 
the filename is used. 

Indicates the volume serial number of 
the first or only reel in the file. It 
can be from 1 to 6 alphameric 
characters; if fewer than 6 characters 
&rQ specified, the field is 
right-justified and padded with zeros. 

Indicates the volume serial number of 
the first or only reel in the file. It 
must be specified as 6 characters in 
length. 



LINKAGE EDITOR CONTROL STATEMENTS— DOS/VSE 



The linkage editor control statements prepare the object modules 
produced by the VS FORTRAN compiler for execution. This is 
accomplished by resolving external differences to library modules 
or other object modules. The linkage editor then takes the 
compiler output and combines it with required library modules, 
and with other modules, if indicated by the program. 
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ACTION Linkage Editor Control statement 



The ACTION statement is used to specify linkage editor options. 
Uhen used» the statement must be the first linkage editor 
recordCs) in the input stream. If multiple operands Br& required^ 
they can be placed in separate ACTION statements or in one ACTION 
statement separated by commas. 

If no ACTION statement is provided but SYSLST is assigned* ACTION 
MAP is assumed; if SYSLST is not assigned* ACTION NONAP is 
assumed. 

At least one blank must precede ACTION. 

Format 



nnBratinn 


Qperand 


ACTION 


C CLEAR] t, MAP |,NOriAP]C,NOAUTO] 
[* CANCEL] [*BGi,Fn}[*RELUNOREL] 



The ACTION statement has all the operands shoMn in the format 
above; however » only the required and FORTRAN specific operands 
are described here. For additional information on the ACTION 
statement, see DOS/VSE System Control Statements . 



Mheret 
CLEAR 



MAP 



NOMAP 



NOAUTO 



CANCEL 



Sets the unused portion of the core image library 
to binary zeros prior to beginning the linkage 
editor function. Houiever, clearing storage in this 
manner is time consuming and should be avoided. 

Indicates that SYSLST is available for diagnostic 
messages, including a listing of all linkage editor 
control statements processed. In addition, a map of 
virtual storage is printed on SYSLST, which can be 
used for problem determination. 

If the MAP operand is specified, SYSLST must be 
assigned. If the ACTION statement is not used and 
SYSLST is assigned, MAP is assumed and a map of the 
virtual storage parti ti on and any error diagnostics 
are printed on SYSLST. If the statement is not used 
and SYSLST is not assigned, NOMAP is assumed. 

Indicates that SYSLST is not available when 
performing the link-edit function. Storage mapping 
is not performed, and all linkage editor error 
diagnostics are listed on SYSLOG. 

Suppresses AUTOLINK, the automatic-linking 
facility, during the link-editing of the entire 
program. AUTOLINK will be suppressed for both the 
private and the system relocatable libraries. 

The NOAUTO operand in a PHASE statement indicates 
to the linkage editor that AUTOLINK i s to be 
suppressed for that phase only. If an entire 
program requires NOAUTO, then specifying ACTION 
NOAUTO cancels AUTOLINK during link-editing of the 
entire program, thereby eliminating the necessity 
of specifying NOAUTO in each PHASE statement. 

Is used to request immediate job cancellation if 
certain linkage editor errors occur. If this option 
is not speci-^ied, the job continues. 



\^r-^ 
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ENTRY Linkage Editor Control Statement 



The ENTRY control statement optionally completes linkage editor 
control statement processing. 

Format 



Operation 


Operands 


ENTRY 


tentrypoint] 



(C 



At least one blank must precede ENTRY. 

The ENTRY statement has all the operands shown in the format 
above; however » only the required and FORTRAN specific operands 
are described here. For additional information on the ENTRY 
statement* see DOS/VSE System Control Statements . 

where: 

entrypoint Symbolic name of an entry point. It must be the name 
of a label definition (source ENTRY) defined in the 
first phase. This address is used as the transfer 
address to the first phase in the program. If the 
operand field is blank/ the linkage editor uses as a 
transfer address the first significant address 
provided in an END record encountered during the 
generation of the first phase. If no such operand is 
found on the END cardt the transfer address is the 
load address of the first phase. 

It is necessary to supply the ENTRY statement only if a specific 
entry point is desired. Uhen EXEC LNKEDT is read* job control 
writes an entry statement* with a blank operand* on SYSLNK to 
ensure that an ENTRY statement will be present to halt 
link-editing. 
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INCLUDE Linkage Editor Control statement 



The INCLUDE statement indicates that an object module is to be 
included for editing by the linkage editor. 

INCLUDE is used to specify that a module from the relocatable 
library^ or SYSIPT» is to be included in the present phase. A 
number of modules may be included for any one phase. The location 
of the INCLUDE statement determines the position of each module 
Mi thin the phase. 

Format 






Operation 


operand 


INCLUDE 


Cmodulename] 
i, (namelist)] 



At least one blank must precede INCLUDE. 

Where: 

modulename Specifies the name of a module cataloged in the 

relocatable library. It can be from 1 to 8 alphameric 
characters. Uhen the module is compiled* it must have 
been cataloged using the CATALR statement. 

If both operands are omitted* the object module is assumed to be 
on SYSIPT. The module would be in deck form as a result of the 
compiler option DECK being specified in the OPTION statement. 

For a detailed description of this linkage editor control 
statement* see DOS/VSE System Control Statements . 
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PHASE Linkage Editor Control statement 



The PHASE statement specifies a name for the phase that the 
linkage editor is to produce* and an origin point that specifies 
the address at Mhich the phase is to be loaded. It provides a 
number of uses» chiefly that of supplying a name for a phase that 
i 5 to be cataloged in the core image library. 

The first (or only) object module input for the linkage editor 
should include a PHASE statement before the first ESD item. If no 
PHASE statement is used* or if the PHASE statement is in error* 
the linkage editor constructs a dummy statement. This allouis 
testing of the program when the LINK option is used. However* the 
program with the dummy PHASE statement cannot be cataloged in a 
core image library; when the CATAL option is used* the job is 
cancelled. 

Format 



Operation 


Operand 


PHASE 


name*origin [*N0AUTO] 



At least one blank must precede PHASE. 

The PHASE statement has all the operands shown in the format 
above; however* only the required and FORTRAN specific operands 
are described here. For additional information on the PHASE 
statement* see DOS/VSE System Control Statements. 



^»u»^ 



Mhere: 



name 



origin 



Is required and indicates the symbolic name given to 
the phase. It can be from 1 to 8 alphameric characters* 
the first of which may not be a dollar sign ($). 

For multiphase programs* 5 to 8 alphameric characters; 
the first four characters of each phase-name should be 
the same* but should not be identical to the first four 
characters of any other phase-name in the core image 
library. An asterisk i^) or a dollar sign ($) cannot be 
used as the first character of the phase-name. 

Is required and specifies the load address of the 
phase. The forms most used for VS FORTRAN are^ 

« Specifies that the phase be assigned the next 
available doubleword main storage address 
after the previous phase. It is specified as 
shown. 

S Specifies that the phase i s to be loaded at 
the first available address in the problem 
program area. It is specified as shown. 

ROOT Indicates that the phase will always be 
resident in main storage during program 
execution. It is specified only on the first 
PHASE statement* and only on multiphase 
programs. It is specified as shown. 

NOAUTO Suppresses the automatic-linking facility 
for this linkage editor job step. It i s 
specified as shown. 
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DOS/VSE LIBRARIAN PROGRAHS 



ThQ librarian is a group of programs used for maintaining DOS/VSE 
libraries and for providing printed and punched output from the 
libraries. The libraries ara' 

• Core Image Library (System and Private) 

Contains the system control components and program phases. 

To catalog a load module (phase) in this library^ you must 
specify the following statement in your link-edit step! 

// OPTION CATAL 

• Relocatable Library (System and Private) 
relocatable library, DOS/VSE 

Contains the system control components and compiler logical 
input/output control system (LIOCS) object modules. 

To catalog your object module to this li brary» you use the 
CATALR statment. 

• Source Statement Library (System and Private) 

Contains sequences of source statements, and macro 
def ini tions. 

To catalog your source programs to this library you use the 
CATALS statement. 

• Procedures Library (System Only) 

Contains cataloged procedures. ^^ v 

To catalog a procedure to this library, you use the CATALP V_r 
statement. 

Maintenance and service are the major functions performed for 
both the private and the system libraries by the librarian 
programs. Maintenance includes the addition, deletion, or copying 
of the items in the library. Service includes the translation of 
information in a library to printed or punched form. Information 
in a library directory and in header records can also be 
di splayed. 

For a more detailed description of these libraries and houi to 
catalog in them, see DOS/VSE System Management Guide . For 
guidance information on cataloging to the different libraries, 
see the VS FORTRAN Application Programming? Guide . 
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PART III. VH/370-CI1S SYSTEM SERVICES 



You can create^ compflo^ load» and execute VS FORTRAN programs 
using VM/370 CMS. An important aspect of FORTRAN programming 
under CMS is the creation and management of CMS files. Files must 
be created to hold your VS FORTRAN source programs. The compiler* 
in processing programs* creates files that contain its listing 
and the executable code it produces. Some of the programs* during 
execution* may process or create files containing data. This 
section describes files in a FORTRAN context. For additional 
information on CMS file management, see IBM VM/370' CP Command 
Reference for General Users . 



VS FORTRAN SOURCE PROGRAMS UNDER CMS 






Before invoking the VS FORTRAN compiler, a VS FORTRAN source 
program must be available in a CMS file on one of your disks. The 
source program is usually created using the CMS EDIT facilities* 
and may be written in either fixed or free format. The files may 
be created at the terminal just prior to compiling them or they 
may be old files* created some time ago* uihich need recompi lati on 
In either case* all VS FORTRAN source files must have a CMS 
identifier and file characteristics that conform to VS FORTRAN 
compiler requirements. 

For detailed information on creating and compiling your program 
using CMS* see VS FORTRAN Application Programming? Guide . For 
detailed information on using CMS commands from a terminal* see 
VM/370 CMS Terminal User*s Guide . 



VS FORTRAN SOURCE FILES 



Every FORTRAN source file to be compiled requires a file 
identifier with the following format? 

Format 



filename filetype [filemode] 



Hhere? 

filename Is any valid CMS filename. A valid name consists of from 
1 to 8 alphameric characters* which may be any 
combination of the following? 

• Uppercase letters A through Z 

• Lowercase letters a through z 

• Numbers through 9 

• Extended characters 3* #* or $ 
filetype Is one of the following? 

FORTRAN - source program file 

DATA - data file 

EXEC - EXEC procedures 
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CMS RETURN CODES 



fllemode Is any valid QMS filemodo. For detailed information on 
filemodes* see IBM VM/37Q' Command Reference fof 
General Users . 



CMS produces a return code folloMing the execution of a VS FORTRAN 
compilation. It appears in the ready message and corresponds to 
the highest diagnostic message severity level encountered during 
compilation. 

gxamp^q 

R(00004); 
Figure 9 lists the possible return codes. 



Code Meaning 

00000 No errors uiere detected. 

HoMever, there may be information messages. 
If an information message is produced* check your 
program for possible errors* as the reliability 
of your results may be in doubt. 

00004 Possible errors Mere detected or warning 
messages Mere issued. 

Execution of your program should be successful* 
but the results may not be reliable. 

00008 Errors Mere detected. 

Compilation continues* but execution may fail. f^^^S 

If specified* an object module Mill be created* \j^^- 

but you may not be able to execute it. 

00012 Severe errors Mere detected. 

Compilation may not continue* if it does* 
execution of the program is impossible. 

00016 Extremely severe errors Mere detected. 

Compilation terminates at the point at Mhich 
the error Mas detected. 

Figure 9. CMS Return Codes 
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PEFINING EXECUTION-TIME FILES 



ThQ folloMing discussion describes hoM files are defined through 
the use of the CMS FILEDEF commands and hou they are identified to 
the system through the use of file identifiers and VS FORTRAN 
input/output statements. 



PREDEFINED FILES 



All execution-time files that you want to use must be defined to 
CMS. Three files are predefined*' 

Sequential 

• Terminal input 

• Terminal output 

• Punched card output 

The three predefined files are provided for you by the VS FORTRAN 
initialization routine^ which also supplies the FILEDEF for these 
files. These files are recognized by CMS when you refer to them in 
VS FORTRAN input or output statements with the VS FORTRAN data set 
reference number that has been assigned to them. Since they are 
predefined* you do not have to supply a FILEDEF command for them^ 
unless you want to change their definition or create new files to 
replace them. See Figure 10. 



(O 



VS FORTRAN 
Data set 
Reference 
Number 


Used in the Follouing 
VS FORTRAN Input and 
output statements 


Identifies 


Requires Records of 
the Follouing Format 
and Maximum Length 


5 


READ (5,b)list 
READ (5,X)list 


Terminal 
input 


Fixed-length* 
unblocked (F), 130 
characters long. 


6 


MRITE (6.b)list 
URITE (6,)()list 


Terminal 
output 


Fixed-length* 
unblocked (F), 131 
characters long. 


7 


WRITE (7,b)list 


Punched 
Card output 


Fixed-length, 
unblocked (F) » 80 . 
characters long. 



Figure 10. Predefined Files — Data Set Reference Numbers and Record Formats 



o 
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USER-DEFINED FILES 



User-dof ined files containing data that you Mill Mant your 
program to process may already exist in your system. Conversely* 
you may uant your program to create a file to hold data that Mas 
generated during its execution. 

All such files you must define Mith a FILEDEF command; since they 
are not predefined* they cannot be identified by CMS and 
associated Mi th your program. FILEDEF is used in conjunction Mith 
the data set reference numbers in your VS FORTRAN input and output 
statements and the identifier of the file that you Mant to use or 
create. 

You can* in addition* define the folloMing files to be used in 
place of the system's predefined files or change them to suit your 
oMn needs: 

Sequent ial 

• Terminal input 

• Terminal output 

• Punched card output 

Uhether a file is sequential or direct access Mill* to a great 
extent* determine hoM a record is defined* the May it is 
identified* and hoM it is referred to in a VS FORTRAN program. 

Regardless of the type of file you arQ using* there are several 
general guidelines that must be folloMed in defining and using 
files. 

• Each file used in your program must be defined to the system 
(either through system-supplied definition or one that you 
supply). 

• Do not use the same definition for more than one file. 

• Do not use the same file on more than one type of device in 
the same program. 

• You may refer to the same file from more than one program 
through different devices and access methods* if you change 
the file and its definition appropriately before using it. 



Ol 
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CP COMHANDS 



The commands listed in the folloMing tables are those most 
frequently used by the VS FORTRAN programmer. This table is 
intended to be used as a reference tool by providing easy lookup 
of those commands used most often. 



CP Commands 

BEGIN 

IPL 

LOGON 

LOGOFF 

QUERYi 



Function 

Returns the system to the CMS environment and resumes 
execution of a program. 

Simulates an initial program load for the user's 
vi rtual machine. 

Identifies the user to VM/370. 

Terminates the terminal session. 

Types out the status of the user's virtual 
configuration and usei — defined parameters. 



SET> 

TERMINAL 

Note: These commands are both CP and CMS commands. 



Sets operational characteristics for the user's 
virtual machine. 

Sets operational characteristics for the user's 
terminal . 



CMS COMMANDS 



■f\ 



This section contains reference information for the CMS commands 
used most often by the VS FORTRAN programmer. Each command 
description gives the format* operands* and options available. 

For a more complete description of the commands that folloM* see 
IBM VM/370: CMS Command and Macro Reference. 
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AHSERV COHNAND 



Tha AMSERV command invokes Access Method Services to^ 
• Define VSAM catalogs^ data spacesr or clusters 



Altera list» copy» delete* export » or import VSAN catalogs 
and data sets 



Format 



Command 


Operand 


AMserv 


fnl [fn2] C (options. ..[)]] 
Cfai] 



fn2 



r*or a description of aii the options that can be specified and 
additional information on the use of this command* see IBM Vi rtual 
Machine Faci li tv/370i CMS Command and Macro Reference . 

Mhere: 

fnl Specifies the filename of a CMS file Mith a filetype of 
AMSERV that contains the Access Method Services control 
statements to be executed. CMS searches all your 
accessed disks* using the standard search order* to 
locate the f i le. 

Specifies the filename of the CMS file that is to 
contain the Access Method Services listing* the 
filetype is always LISTING. If fn2 is not specified* 
the LISTING file Mill have the same name as the AMSERV 
input (fnl). 

The LISTING file is written to the first read/write 
disk in the standard search order* usually your A-disk. 
If a LISTING file with the same name already exists* it 
i s replaced. 

options The following options may be specified^ 

PRINT 
TAPIN 
TAPOUT 



r^) ) 
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DLBL CONHAND 



In CMSr the DLBL command defines and identifies VSAM catalogs* 
clusters* and data spaces. DLBL also identifies VSAM files used 
for program input/output* and identifies input/output files for 
AM5ERV. 

Format 



command 



operands 



DLBL 



[ddname{mode } 
(DUMMY } 



[DSN quail. . .qualn] ] 

[DSN ? 3 [(options. ..C)]] 3 



(O 



For a description of all the options that can be specified and for 
further information on the use of this command* see the IBM 
Virtual Machine Faci li tv/370 ♦ CMS Command and Macro Reference . 



Where: 
ddname 

mode 



DUHMY 



DSN 



Specifies a 1- to 7-character program ddname 
(OS/VS) or filename (DOS/VSE). 

Specifies a valid CMS disk mode letter and 
optionally* a filemode number. A letter must be 
specified; if a number is not specified it defaults 
to 1. The disk must be accessed uhen the DLBL 
command is issued. 

Indicates that no real input/output i s to be 
performed. A read results in an end-of-file 
condition and a write results in a successful 
return code. DUMMY should not be used for OS/VS 
VSAM data sets (a dummy data set does not return* on 
open* an end-of-file indication). 

Indicates non-CMS files. 

Indicates that the data set name Mill be entered 
interacti vely. 



quail... qualn Indicates an OS/VS data set name or DOS/VSE 
file-id. 



options 



The following options may be specified* 

VSAM - indicates a VSAM file. This option must 
be specified for VSAM functions except uihen the 
EXTENT* CAT, or BUFSP options are specified. 

EXTENT - specifies extent information* and 
indicates that Access Method Services Mill be 
used to define a VSAM catalog* or data space. 

MULT - indicates an existing multi volume file 
speci f icati on. 

CAT catdd - identifies the VSAM catalog* 
defined by a previous DLBL* Mhich contains the 
entry for the file. 

BUFSP nnnnnn - specifies the number of bytes to 
be used for I/O buffers by VSAM during program 
execution. 



o 
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EDIT COMMAND 



The EDIT command invokes the CMS editor to create* modify, and u J 
manipulate CMS disk files. Once the editor is invoked, only the 
EDIT subcommands, edit macro requests, and input data to the disk 
file can be executed. HoMever, a limited number of CMS commands 
may be executed in the CMS subset mode, entered from the edit 
environment. 

Control is returned to the CMS environment by issuing the EDIT 
subcommands FILE or QUIT. For a complete list of the EDIT 
subcommands, see the "EDIT Subcommands" section. 

Format 



Command 


Operands 


Edit 


III 1 W k IIIIJ LVUKVIUII3. . . L/JJ 



Additional information on the use of this command and the EDIT 
subcommands can be found in IBM Virtual Machine Faci li tv/370 ♦ CMS 
Command and Macro Reference . 

Mhere: 

fn Specifies the filename of the file to be created or 

edited. If the file specified is a new file, you issue 
the INPUT subcommand, and all data lines entered become 
input to the neu file. If the file specified exists, you 
issue the EDIT subcommands to modify the file. 

ft Specifies the filetype of the file to be created or 
edited. Filetype may be specified as : 

FORTRAN - for FORTRAN source files 

AMSERV - VSAM control commands 

EXEC - for EXEC procedures 

DATA - for data files 

fm Specifies the filemode of the file to be edited, 

indicating the disk on which the file resides. The 
editor determines the filemode of the edited file as 
follows: 

If frQ is specified as an asterisk (X), all accessed 
disks are searched for the specified file. 

options The following options may be specified: 

LRECL nn is the record length of the file to be 
created or edited. This option is used to override 
the default value supplied by the editor. 

NODISP forces a display terminal into line 
(typewriter) mode. Mhen this option is in effect, 
all subcommands such as SCROLL, SCROLLUP, FORMAT, 
and CHANGE (with no operands) that control the 
display on a terminal are made invalid for the edit 
session. 



\_j^' 
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EDIT Subcommands 



The EDIT command alloMs you to enter EDIT mode and makes the 
folIoMJng subcommands available to you for file creation and 
alteration. Entering a null line puts the editor into INPUT mode, 



EDIT Subcommands 


Usage 


BOTTOM 


Moves the editor's pointer to the last 




line of the file. 


CHANGE 


Replaces a string of characters Mith 




another in one or more lines. 


DELETE 


Deletes one or more lines from a file. 


DOUN 


Moves the editor's pointer to a subsequent 




line. 


FILE 


Places a file on the user's disk and leaves 




EDIT mode. 


FIND 


Performs a string search* which is 




column-dependent » for the specified group of 




characters. 


FMODE 


Changes the filemode of a file. 


FNAME 


Changes the filename of a file. 


GETFILE 


Includes a part of an existing file in the 




file being created. 


INPUT 


Enters INPUT mode and accepts subsequent 




lines as part of the file being created. 


LOCATE 


Performs a string search* which is 




not column-dependent* for the specified 




group of characters. 




The search begins with the current 




position of the editor's pointer. 


NEXT 


Moves the editor's pointer to the next 




line of a f i le. 


QUIT 


Terminates the operation of the editor 




without effecting any modifications. 


REPLACE 


Replaces a line with one or more lines. 


TOP 


Moves the editor's pointer to the null 




line at the beginning of a file. 


TYPE 


Types all or part of a file being created. 


UP 


Moves the editor's pointer to a previous 




line of a f i le. 


VERIFY 


Controls the typing of any lines that have 




been changed or replaced. 
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EXEC COHMAND 



Tha EXEC command executes one or more CMS commands or EXEC control 
statements contained in a specified EXEC file. 

Format 



Command 


operands 


[EXec] 


fn Cargs...] 



where: 
EEXEC] 



fn 



args 



Indicates that the EXEC command may be omitted if 
executing the EXEC procedure from the CMS command 
erivircnment and the SET IMPEX OFF command has not bssn 
i ssued. 

Indicates the filename of a file containing one or more 
CMS commands and/or EXEC control statements to be 
executed. The filetype of the file must be EXEC and the 
file can have either fixed- or variable-length records 
Mith a logical record length not exceeding 130 
characters. EXEC files can be created with the EDIT 
command or by a user program. EXEC files created by the 
CMS editor have» by default/ variable-lengths 
80-character records. 

Indicates any arguments you may pass to the EXEC. The 
arguments are assigned to the special variables 11 
through &30 in the order in which they appear in the 
argument list. 



For additional information on the use of this command* see IBM 
Virtual Machine Faci li tv/370 i CMS Commands and Macro Reference . 
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FZLEDEF COMMAND 



The FILEDEF command defines a file and its input and output 
devices. 

Format 



Command 


Operands 


Flledef 


Cddname} 
{xx} 


{device} ( Copt i on i opti on] . 


..) 



o 



o 



where: 

ddname The data definition name provides the link between your 
VS FORTRAN input and output statements and the file 
that you want to process or create. The standard VS 
FORTRAN data definition name has the follouiing format^ 

FTxxFyyy 

Where; 

XX is a VS FORTRAN data set reference number. 
This number must be used in any VS FORTRAN 
input or output statements that refer to the 
file being defined. The number 00 must not be 
specified as a data set reference number. The 
data set reference number may range from 01 
to a maximum value determined at the time the 
sytem Mas installed. 

yyy Is a sequence number (ranging from 001 to 

999) that identifies multiple files under the 
same data set reference number. For direct 
access filesr this number Mill vary depending 
upon the order in Mhich the file is referred 
to in your program. 

XX A VS FORTRAN data set reference number used alone 

performs the same function as the ddname; however » it 
cannot be used for multifilesr since it generates a 
default ddname of FTxxFOOl. The data set reference 
number specified must be used in your VS FORTRAN input 
and output statements that refer to the file being 
defined. 

device Specifies the input/output device on Mhich the file 
Mill reside. The folloMing devices may be specified^ 

TERMINAL Specifies that your user-defined file is to 

be read or written at the terminal. With this 
option you can either change the 
characteristics of the system's predefined 
file or create a neM file for the terminal. 

UPCASE — Specifies that the data entered 
at the terminal Mill appear on the 
printout in uppercase characters. This is 
the default for the option. 

L0I4CASE — Specifies that the data entered 
at the terminal Mill appear on the 
printout in loMercase characters. 

PRINTER Indicates that your user-defined file is to 
be Mritten on an offline printer. Files 
defined as PRINTER may only be used for 
output. 
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PUNCH Indicates that your user-defined file is to 

be punched into a card deck. Files defined as 
PUNCH may only be used for output. 

READER Indicates that you Mant to read a 

user-defined file consisting of a deck of 
cards. Files defined as READER may only be 
used for input. 

DISK Indicates you Mant to use an existing disk 
file or create a new one. 



If you are reading an existing file» you must 
include its file identifier (fn ft tfml). If 
you are creating a neM disk file* you must 
supply your ouin file identifier; if you do 
not» the system Mill supply the folloMing 



FILE FTxxFyyy Al 

For files defined as spanned (VS or VBS) 
file mode must be specified as 4. 



the 



XTENT{nn|50} 

Must be included in each FILEDEF command that 
defines a VS FORTRAN direct access file. The 
variable nn should correspond to the number 
of records that you specified in the OPEN 
statement. If you do not include this option* 
a value of 50 records is assumed. 



DISP MOD 

Indicates that the read/Mrite pointer is to 
be positioned after the last record in the 
di sk f i le. 






DUMMY Indicates that no real input or output 

operation i s to be performed for a disk file. 
This option may be used in place of the DISK 
option only. You may specify any of the disk 
options; hoMever* they Mill be ignored. 



FILEDEF Tape Options 



TAPn 



Indicates that you Mant to use an existing tape file or 
create a neM one. The variable n represents the tape 
unit number and can range from 1 through ^. The numbers 
correspond to tape units attached to your virtual 
machine addresses 181 through 184. 

Specify these valid FILEDEF options for tape files. 

nTRACK Indicates the type of tape device being used. 
The variable n represents the number of 
tracks that the tape device records on. It 
can be specified as 7 or 9. 

TRTCH aa Used for 7-track tapes to indicate the 

recording technique being used. The variable 
aa i s a code that specifies the parity* 
converter* and translator settings. 
Figure 11 lists the possible tape recording 
specifications available for this option. 



Q) 



54 VS FORTRAN Application Programming: System Services Reference Supplement 



aa 


parity 


converter 


translator 


oc 


odd 


on 


off 


OT 


odd 


off 


on 





odd 


off 


off 


ET 


even 


off 


on 


E 


even 


off 


off 



o 



Figure 11. Tape Recording Specifications 



DEN nnnn Indicates the density of the tape being used. 
For additional information on tape densities 
see Appendix A. 

FZLEDEF Options Specifying Format and Logical Characteristics 

RECFM aaa[a] Indicates the format of a set of VS FORTRAN records 
being read or written and whether they contain 
carriage and print control characters. The control 
characters A and M can be used with any valid RECFM 
setting (for example^ FA, FBA, VA or VBA), The 
variables aaa and a are codes that represent the 
possible record formats and control characters. 
Figure 12 and Figure 13 list the possible record 
formats and control characters that can be 
speci f ied. 



aaa Record Format 

F Fixed-length records (must be specified 
for direct files) 

FB Fixed-length» blocked records 

V Variable-length records 

VB Variable-length, blocked records 

U Undefined-length records 

FS Fixed-length, standard block records 

FBS Fixed-length, blocked, standard records 

VS Variable-length, spanned records 

VBS Variable-length, blocked, spanned records 

Figure 12. Record Formats for the RECFM Option 



© 



Control Characters 

ANSI carriage control character 
machine control characters 



Figure 13. Control Character Specifications for the RECFM Option 
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LRECL nn Indicates the the maximum length of a VS FORTRAN 
record. The record format* Mhich you specified in 
RECFN* determines hoM you must specify LRECL. The 
criteria for determining logical record lengths are 
listed in Figure 14. 



For RECFH 


LRECL Hust 


F, FB, FS, or FBS 


Specify the actual size of the records 
(must be specified for direct files) 


V, VB, VS, or VBS 


Specify the size of the longest record 


U 


Be omitted 


Note: The maximum 
i s 65K bytes. 


LRECL that can be specified 



Figure .14. Criteria for Determining a Value for LRECL 



BLOCK 



BLOCK or BLKSIZE indicates the maximum amount of 
space required by one or more VS FORTRAN records 
that are to be read or written by a single input or 
output statement. Figure 15 lists the criteria for 
determining block size. 



For RECFH 




BLOCK must 


F or FS 




Specify the same value as LRECL. 


FB or FBS 




Specify a multiple of LRECL. 


V or VS 




Specify the value of LRECL plus 4 
bytes for a segment descriptor uiord. 


VB or VBS 




Specify the value of LRECL plus 4 
bytes for the segment descriptor Mord 
of each record that can be contained in 
the block plus 4 bytes for a block 
descriptor Mord. 


U 




Specify the greatest amount of space 
required to hold all the records that 
are to be grouped together. 


Note: The 
is 65K byt 


maximum 
es. 


block value that can be specified 



V#^''. -■•■ 



Figure 15. Criteria for Determining a Value for the BLOCK Option 
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PERN Indicates that the file characteristics specified in 
a FILEDEF command are to remain in effect until they 
ere either explicitly cleared* or changed Mith a neui 
FILEDEF command that has the CHANGE option. 

CHANGE Indicates that, if a file definition exists for the 
ddname that is specified in this command, the 
options that &re included uiill replace the 
corresponding options in the old FILEDEF command. 
This is the default if PERM, CHANGE, or NOCHANGE is 
not specified. 

NOCHANGE Indicates that, if a file definition exists for the 
ddname specified in this FILEDEF command, the 
options that are included will not replace the 
corresponding options in the old FILEDEF command. 

Additional information on the use of this command can be found in 
IBM Virtual Machine Faci li tv/370 ♦ CMS Command and Macro 
Reference. 
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FORTVS CONMAND 



(^(~y] 



The FORTVS command invokes the VS FORTRAN compiler. Your source 
program must be in the CMS file that you identify in the command. 
The FORTVS command allouis you to specify a set of options 
governing compiler operation and output. If hoMever^ you omit one 
or more of the options^ default values are assumed. 

Format 



Command 


Operands 


FORTVS 


f i lename ( C option! opt ion] [option! option] . 


.) 



Mhere: 
FORTVS 

f i lename 

option 



Invokes the VS FORTRAN compiler. It must be specified 
as shoMn. 

Specifies the name of the file containing the FORTRAN 
program to be compiled. 

Option can be any of the VS FORTRAN compiler options. 
For a complete list of the compiler options that can be 
specified* see Appendix B. 



\j>^' 
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GLOBAL COMMAND 



The GLOBAL command specifies the text or macro libraries to be 
searched in resolving external references in a program being 
loaded. 

This command makes the VS FORTRAN libraries accessible to your 
disk storage before you load and execute your VS FORTRAN program. 

Format 



Command 


Operands 


GLobal 


{TXTLIB} [libnamel ... libnameS] 
(MACLIB} 



(C 



where; 

TXTLIB Precedes the specification of text libraries to be 
searched for missing subroutines uihen the LOAD or 
INCLUDE command is issued* or uihen a dynamic load 
occurs. 

MACLIB Precedes the specification of macro libraries that Bir& 
to be searched for macros and copy files during the 
execution of the compiler. The macro libraries may be 
CMS or OS/VS files. For OS/VS files, a FILEDEF command 
must be issued for the file before you issue the GLOBAL 
command. 

libnamel Indicates the filename of a library. As many as eight 
libraries may be given. Filetypes must be TXTLIB or 
MACLIB. The libraries are searched in the order they 
are named. If no library names are specified, the 
command cancels the effect of any previous GLOBAL 
command. 

Check with your system administrator for the libraries 
avai lable. 

For more detailed information on the use of the GLOBAL command, 
see IBM Virtual Machine Faci li tv/370 • CMS Command and Macro 
Reference. 
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INCLUDE COMMAND 



The INCLUDE command reads ono or more TEXT files (containing 
relocatable object code) from disk and loads them into virtual 
storage^ establishing the prop&r linkages betuieen the files. In 
order for the INCLUDE command to produce the desired results* a 
LOAD command must have been previously issued. 

The INCLUDE and LOAD commands are used to create a load module 
from one or more object modules (plus any needed VS FORTRAN 
library modules) uihen loading and executing your program under 
CMS, 

Format 



Command 


Operands 


IHclude 


fn... Liopti ons. . . [ ) 31 



Where: 
fn.. . 



options 



Is the name of the files to be loaded into storage. 
Files must have a filetype of TEXT and consist of 
relocatable object code. If a GLOBAL TXTLIB command has 
identified one or more TXTLIBs* fn may indicate the 
TXTLIB member. 

If options Mere specified uith a previous LOAD or 
INCLUDE command and if SAME is specified uhen INCLUDE 
is issued* these options (with the exception of CLEAR 
and ORIGIN) remain set. 



The options that may be specified are: 

CLEAR/NOCLEAR 

clears the load area in storage to binary zeroes* 

MAP/NOMAP 

adds information to the load map. 

TYPE/NOTYPE 

displays the load map of the files at the 
terminal* in addition to uriting it to disk. 

AUTO/NOAUTO 

searches your disk for TEXT files to resolve 
undefined references. 



H_y' 



LZBE/NOLIBE 

Searches the text libraries defined by the GLOBAL 
command for missing subroutines. 



START 



retains the same options (except ORIGIN and CLEAR) 
that Mere used by a previous INCLUDE or LOAD 
command. 



For a description of the options that can be specified and for 
additional information on the INCLUDE command see IBM Vi rtual 
Machine Faci li tv/370 ? CMS Command and Macro Reference . 
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LOAD COMHAND 



The LOAD command reads one or more CMS or OS/VS TEXT files from 
disk and loads them into virtual storage^ establishing the 
linkage between the files for execution. 

The LOAD command is used to create and» optionally, execute a load 
module. Your input consist of your object module» VS FORTRAN 
library routines, and secondary input such as TEXT files of called 
subprograms. 

Format 



Command 


Operands 


LOAD 


fn ... C (options. ..[ ) ]] 



c 



where: 

fn Specifies the names of the files to be loaded into 
storage. The files must have a filetype of TEXT and 
consist of relocatable object code. If a GLOBAL TXTLIB 
command has been issued, fn may indicate the name of a 
TXTLIB member. 

options If conflicting options are specified, the last one 
entered is in effect. Options may be overridden or 
added uihen you use the INCLUDE command to load 
additional TEXT files. 

The START option executes the program being loaded. 
Upon successful completion of the loading, START must 
be specified only if you Mant execution to begin 
immediately. 

A list of other options that can be specified folloMs: 

CLEAR/NOCLEAR 

MAP/NOMAP 

TYPE/NOTYPE 

AUTO/NOAUTO 

LIBRE/NOLIBRE 

START 

For an explanation of these options, see the INCLUDE command. 

For further information on how to use this command in your 
program, see VS FORTRAN Application Programming* Guide . Also, see 
the IBM Virtual Machine Faci 1 i tv/370 ? Terminal User's Guide for 
details on the use of this command. 
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RUN COMMAND 



The RUN EXEC procedure initiates a series of functions on a file. 
The RUN command compiles* loads* and starts execution of the file 
specified* depending on the filetype. 

Format 



Command 


Operands 


RUN 


fn [ft Cfmll C (args...C)]] 



where: 
fn 

ft 



Is the filename of the file to be compiled* 
link-edited* and executed. 

Is the filetype of the file to be compiled* 
link-edited* and executed. If the filetype is not 
specified* a search is made for a file Mith the 
specified filename and the filetype of EXEC* MODULE* or 
TEXT. If the filetype of an input file is FORTRAN* the 
VS FORTRAN compiler is invoked to compile the source 
statements and produce a TEXT file. Then* LOAD and 
START are called to initiate program execution. The 
valid filetypes and resulting action for the command 
are given in Figure 16. 



Filetype 


Act i on 


EXEC 


The EXEC processor is called to process 
the file. 


MODULE 


The LOADMOD command is issued to load 




the program into storage* and the 
command executes the program* beginning 
at the entry point equal to fn. 


TEXT 


The LOAD command brings the file into 
storage in an executable format, 
and the START command executes the program* 
beginning at the entry point named by fn. 


FORTRAN 


The FORTRAN compiler is invoked to compile* 
link-edit* and execute the FORTRAN source 




program. 



V^' 



Figure 16. Valid RUN Filetypes and Resulting Actions 



fm Is the filemode of the file to be compiled* 

link-edited* and executed. If this field is specified* 
a filetype must be specified. If fm is not specified* 
the default search order is used to search your disks 
for/the f i le. 

args Are arguments you Mant to pass to your program. Up to 13 
arguments can be specified in the RUN command* provided 
they fit on a single input line. Each argument is 
left-justi f i ed* and any argument more than eight 
characters long is truncated on the right. If the input 
file is FORTRAN* args can be compiler options. See 
Appendix B for the options that can be specified. 

For further details on the use of the RUN command* see IBM Vi rtual 
Machine Faci li tv/370 ♦ CMS Command and Macro Reference . 
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START COMMAND 



The START command begins execution of a previously loaded 
program. 

Format 



Command 


Operands 


START 


[entry Cargs. . . 3] 



Where: 
entry 

args 



^1^ 



Passes control to the control section name or entry 
point name at execution time. Entry may be a filename 
only if the filename is identical to a control section 
name or an entry point name. 

Passes control to the default entry point. 

Are arguments to be passed to the started program. If 
user arguments are specified^ entry or ^ must be 
specified; otheruise^ the first argument is taken as 
the entry point. Arguments are passed to the program 
via general register 1. The entry operand and any 
arguments become a string of doublewords^ one argument 
per doublewordt and the address of the list is placed in 
general register 1. 

Note: Any undefined names or references specified in 
the files loaded into storage are defined as zero. 
Thus» if there is a call or branch to a subroutine from 
a main program^ and if the subroutine has never been 
loaded^ the call or branch transfers control to 
location zero of the virtual machine at execution time. 

Additional information on the use of this command is given in IBM 
Virtual Machine Faci 1 i tv/370 ? CMS Command and Macro Reference . 



(O 
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PART IV. 0S/VS2 TSQ SYSTEM SERVICES 



You can create* compfle> load* and execute VS FORTRAN programs 
using 0S/VS2 TSO. An important aspect of FORTRAN programming 
under TSO is the creation and management of TSO files. Files must 
be created to hold your VS FORTRAN source programs. The compiler* 
in processing programs^ creates files that contain its listing 
and the executable code it produces. Some of the programs* during 
execution* may process or create files containing data. This 
section describes files in a FORTRAN context. For additional 
information on CMS file management, see 0S/VS2 TSO' Command 
Language Reference . 



Sft^S^&f iiKivk^n vn#» 
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USER-DEFINED FILES 



Before invoking the VS FORTRAN compiler, a VS FORTRAN source 
program must be available in a TSO file. The source program is 
usually created using the EDIT facilities, and may be written in 
either fixed or free format. The files may be created at the 
terminal just prior to compiling them or they may be old files 
which need recompi lati on. In either case, all VS FORTRAN source 
files must have a TSO identifier and file characteristics that 
conform to VS FORTRAN compiler requirements. 

For detailed information on creating and compiling your program 
using TSO, see VS FORTRAN Application Programming? Guide . For 
detailed information on using TSO commands from a terminal, see 
0S/VS2 TSO Terminal User's Guide . 

/if >N i 

User-defined files, containing data that you will want your ^kj^--' 

program to process may already exist in your system. Conversely, 
you may want your program to create a file to hold data that was 
generated during its execution. You must define all such files 
with an ALLOCATE command; since they are not predefined, they 
cannot be identified by TSO and associated with your program. 
ALLOCATE is used in conjunction with the data set reference 
numbers in your VS FORTRAN input and output statements and the 
identifier of the file that you want to use or create. 

Uihether a file is sequential or direct access will, to a great 
extent, determine how a record is defined, the way it is 
identified, and how it is referred to in a VS FORTRAN program. 

Regardless of the type of file you are using, there are several 
general guidelines that must be followed in defining and using 
files. 

• Each file used in your program must be defined to the system 
(either through system-supplied definition or one that you 
supply). 

• Do not use the same definition for more than one file. 

• Do not use the same file on more than one type of device in 
the same program. 

• You may refer to the same file from more than one program 
through different devices and access methods, if you change 
the file and its definition appropriately before using it. 



TSO DATA SET NAMING CONVENTIONS 

A data set is a collection of related data. Each data set stored 
in the system is identified by a unique data set name . The data 
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set name allouis the data to be retrieved and helps protect the 
data from unauthorized use. 

The data set naming conventions for ISO simplify the use of data 
set names. Uhen a data set name conforms to the conventions* you 
can refer to the data set by its fully qualified name or by an 
abbreviated version of the name. 



TSO DATA SET NAMES 



c 



A data set name must be qualified in order to conform to the TSO 
data set naming conventions. The qualified name must consist of at 
least the two required fields of the follouiing three: 

1. Your usei — prefix (required; defaults to userid; may be 
redefined using PROFILE command). 

2. A usei — supplied name (optional for a partitioned data set). 

3. A descriptive qualifier (required). 
Normally* all three names are used: 

USER-PREFIX. USER-SUPPLIED-NAME. DESCRIPTIVE QUALIFIER 

The total length of the data set name must not exceed ^4 
characters* including periods. A typical TSO data set name is^ 

WRRID. PARTS. DATA 

User-prefix - URRID 

Usei — supplied name - PARTS 

Descriptive qualifier - DATA 

The TSO data set naming conventions also apply to partitioned data 
sets. A typical TSO name for a member of a partitioned data set 
i S' 

WRRID. PARTS. DATA(PART14) 

User-Prefix: The user-prefix is always the leftmost qualifier of 
the full data set name. For TSO* this qualifier is the prefix 
selected in the PROFILE command. If no prefix has been selected* 
the userid assigned to you by your installation Mill be used. 

User-Supplied Name: You choose a name for the data sets that you 
uiant to identify. It can be a simple name or several simple names 
separated by periods. 

Descriptive Qualifier: The descriptive qualifier is always the 
rightmost qualifier of the full data set name. To conform to the 
data set naming conventions* this qualifier must be one of the 
qualifiers listed in Figure 17. 

Descriptive Qualifier Data Set Contents 

CLIST TSO commands 

DATA Uppercase text 

FORT VS-FORTRAN statements 

LINKLIST Output listings from linkage editor 

LIST Listings 

LOAD Load module 

LOADLIST Output listing from loader 

OBJ Object module 

OUTLIST Output listing from OUTPUT command 

TESTLIST Output listing from TEST command 

im^ Figure 17. Descriptive Qualifiers Useful for VS FORTRAN 
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HOM TO ENTER DATA SET NAMES 



/W IN t 



The data set naming conventions simplify the use of data set 
names. If the data set name conforms to the conventions* you need 
specify only the user-supplied name field (in most cases) Mhen you 
refer to the data set. The system will add the necessary 
qualifiers to the beginning and to the end of the name that you 
specify. In some cases* however* the system Mill prompt you for 
descriptive qualifiers. 

Mhen you specify an entire fully qualified data set name* as you 
must do if the name does not conform to the TSO data set naming 
conventions* you must enclose the entire name within apostrophes* 
as follows! 



'WRRID.PRGG.LIST' 
'WRRID. PROG. FIRST* 



iMii«3i<s «<iKK«.Lr i3 XiGX your ussr i Gsnt;i!Ti cation 



where FIRST 
quali f ier. 



is not a valid descriptive 



The system will not append qualifiers to any name enclosed 
apostrophes. 



in 



Defaults for Data Set Names: Mhen you specify only the 
user-supplied name, the system adds your user identification and, 
whenever possible* a descriptive qualifier* which the system 
attempts to derive from available information. For instance* if 
you specified ASM as an operand for the EDIT command* the system 
will assign ASM as the descriptive qualifier. If the information 
is insufficient* the system will issue a message at your terminal 
requesting the required information. If you specify the name of a 
partitioned data set and do not include a required member name* 
the system will use TEMPNAME as the default member name. (If you 
are creating a new member* the member name will become TEMPNAME; 
if you are modifying an existing partitioned data set* the system 
will search for a member named TEMPNAME.) Figure 18 shows the 
descriptive qualifiers useful for VS FORTRAN that are supplied by 
default. 






Descriptive Qualifiers 
Command Input 



CALL 
EXEC 
FORT 
LINK 

LOADGO 

TEST 



LOAD 

CLIST 

FORT 

OBJ 

LOAD 

OBJ 

LOAD 

OBJ 

LOAD 



Output 



OBJ 
LOAD 



Listing 

LIST 
LINKLIST 

LOADLIST 

TESTLIST 



Figure 18. Descriptive Qualifiers Supplied by Default 



USING COMMANDS FOR VSAM AND NON-VSAM DATA SETS 



Figure 19 gives recommended commands* by function* for VSAM and 
non-VSAM data sets. Numbers in parentheses after the commands 
indicate order of preference. Refer to 0S/VS2 Access Method 
Servi ces for commands not covered in this document. 



o> 
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TSO RETURN CODES 






Function 

Allocate neui 
Connect data 
Catalog data 

List contents 
Delete 



DASD space 

set to terminal 

sets 



Non-VSAM 

ALLOCATE 

ALLOCATE 

DEFINECl) 

ALL0CATE(2) 

EDIT 

DELETE 



VSAM 

DEFINE 

ALLOCATE 

DEFINE 

PRINT 
DELETE 



Figure 19. Commands Preferred for VSAM/Non-VSAM Data Sets 



TSO produces a return code follouiing the execution of a VS FORTRAN 
compilation. It appears in the ready message and corresponds to 
the highest diagnostic message severity level encountered during 
compi lation. 

Example 

R(00004); 

Figure 20 lists the possible return codes. 



Code Meaning 

00000 No errors Mere detected. However^ there 

may be information messages. If an information 
message is produced^ check your program for 
possible errors, as the reliability of your 
results may be in doubt. 

00004 Possible errors Mere detected, or Marning 

messages Mere issued. Execution of your program 
should be successful, but the result may not be 
rel iable. 

00008 Errors Mere detected. Compilation continues but 

execution may fail. If specified, an object module 
Mill be created, but you may not be able to execute it. 

00012 Severe errors Mere detected. Compilation may not 
continue; if it does, execution of the program is 
impossible. 

00016 Extremely severe errors Mere detected. Compilation 

terminates at the point at Mhich the error Mas detected. 



Figure 20. TSO Return Codes 



TSO COMMANDS 



© 



This section contains reference information for the TSO commands 
used most often by the VS FORTRAN programmer. Each command 
description gives the format, operands, and options available. 

For a more complete description of the commands that folloM, see 
0S/VS2 TSO? CMS Command Language Reference . 
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ALLOCATE CONHAND 



Use the ALLOCATE command or the ALLOCATE subcommand of EDIT 
(function and syntax are identical to the ALLOCATE command) to 
dynamically allocate the data sets required by a program that you 
intend to execute. 

Format 



O 



{ALLOCATE} 
{ALLOC} 



{DATASET} 

{DSNAHE} 

DUHHY 



{ (J<) } 
{(dsname-li st)} 



CFILECname)} 
CDDNAME(name)] 



{ DATASET} 
{ DSNAME} 

nilMMV 



(X)} 
(dsname-li st)} 



{FILE(name)} 
{DDNAMECname)} 



OLD 
SHR 
MOD 
NEU 
SYSOUTCCclass)] 



CV0LUriE(serial-list)3 
CMSVGP(identifier)3 

SP ACEC quant ity)[, increment 3) (block (value) 

BLKSIZE(value)| 
AVBLOCK(value); 
TRACKS 
CYLINDERS 

[DIR(integer)3 

CDEST(stationid)3 

CH0LD3 
[ N0H0LD 3 

CUNIT(type)3 

CUC0UNT(count)3 
[PARALLEL! 

[LABEL(type)3 

CP05ITI0N(5equence-no. )3 

CMAXV0L(count)3 

CPRIVATE3 

CVSEQ(vol-seq-no)3 

WSING(attr-list-name)3 

[RELEASE3 

[R0UND3 



KEEP 
DELETE 
CATALOG 
UNCATALOG 



J / 



68 VS FORTRAN Application Programming* System Services Reference Supplement 



.,o 






All the required end optional operands for the ALLOCATE command 
are shown in the format. Only those of interest to the VS FORTRAN 
programmer Gre described in the following paragraphs. For 
complete documentation^ see 0S/VS2 TSO Command Language 
Reference . 

DATASETtdsname-list or k) or DSNAHE(dsname-11st orx) 

specifies the name of the data set to be allocated. If a list 
of data set names is entered, ALLOCATE will allocate and 
concatenate non-VSAM data sets. The data set name must 
include the descriptive (rightmost) qualifier and may 
contain a member name in parentheses. 

You may substitute an asterisk (^) for the data set name to 
indicate that you want to have your terminal allocated for 
input and output. If you use an asterisk (><)» only the FILE 
or DDNAME, BLOCK or BLKSIZE> and USING operands should be 
entered. All other operands are ignored. No message is 
issued to notify the user. 

DUMMY 

specifies that no devices or external storage space i s to be 
allocated to the data set, and no disposition processing is 
to be performed on the data set. Entering the DUMMY keyword 
will have the same effect as specifying NULLFILE as the data 
set name on the DATASET or DSNAME operand. If DUMMY is 
specified, only the FILE or DDNAME, BLOCK or BLKSIZE, and 
USING operands should be entered. All other operands are 
i gnored. 

FZLE(name) or DDNAME(name) 

specifies the name to be associated with the data set. It may 
contain no more than 8 characters. (This name corresponds to 
the name on the data definition (DD) statement in job control 
language and must match the ddname in the data control block 
(DCB) that is associated with the data set.) This name i s the 
data set reference number that identifies a data set and has 
the form "FTxxFyyy"; for instance, FT06F002. If you omit 
this operand, the system assigns an available file name 
(ddname) from a data definition statement in the procedure 
that is invoked when you enter the LOGON command. 



OLD 



SHR 



MOD 



NEU 



(© 



indicates that the data set currently exists and that you 
require exclusive use of the data set. The data set should be 
cataloged. If it is not, you must specify the VOLUME operand. 
OLD data sets are retained by the system when you free them 
from allocation. The DATASET or DSNAME parameter is 
required. 

indicates that the data set currently exists but that you do 
not require exclusive use of the data set. Other tasks may 
use it concurrently. ALLOCATE assumes the data set is 
cataloged if the VOLUME operand is not entered. SHR data sets 
are retained by the system when you free them. The DATASET or 
DSNAME parameter is required. 

indicates that you want to append data to the end of the data 
set. If the data set does not exist, a new data set is 
created. MOD data sets will be retained by the system when 
you free them. The DATASET or DSNAME parameter is required. 

(non-VSAM only) indicates that the data set does not exist 
and that it is to be created. For new parti tioned data sets 
you must specify the DIR operand. A NEW data set will be kept 
and cataloged if you specify a data set name. If you do not 
specify a data set name, it will be deleted when you free it 
or log off. 
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indicates that the data set is to be a system output data f! j/ 

set. An optional subfield may be defined giving the output 

class of the data set. Output data will be initially directed 

to the job entry subsystem and may later be transcribed to a 

final output device. The final output device is associated 

with output class by the installation. After transcription 

by the job entry subsystem* SYSOUT data sets are deleted. 

LABEL (type) 

specifies the kind of label processing to be done. Type may 
be one of the following: SL, SUL, AL, AUL, NSL, NL, LTM, or 
BLP. These types correspond to the present JCL label-type 
values. 



KEEP 



specifies that the data set i s to be retained by the system 

ar^er i ^ i a i i «(«svi. 



DELETE 

specifies that the data set i s to be deleted after it is 
freed. 

CATALOG 

specifies that the data set i s to be retained by the system 
in a catalog after it is freed. 

UNCATALOG 

specifies that the data set is to be removed from the catalog 
after it is freed. The data set is still retained by the 
system. 



) 



Q) 
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ATTRZB COHHAND 



Use the ATTRIB command to build a list of attributes for non-VSAM 
data sets that you intend to allocate dynamically. During the 
remainder of your terminal session> you can have the system refer 
to this list for data set attributes uihen you enter the ALLOCATE 
command. 

Format 



■'C 



(ATTRIB) 
{ATTR} 



attr-li st-name 

LBLKSIZECblocksize)] 

CBUFL (buffer-length) 3 

CBUFNO(number-of-buf f ers) 3 

CLRECL ((logical-record length))] 
I (( X ))) 

CNCP( no. -of -channel -programs)] 

[INPUT ] 
(OUTPUT) 

CEXPDT(year-day) ] 
[RETPD(no.-of-days)] 

CBFALN ((F))] 
( ((D))] 

[OPTCD(A,B,C,E,F,H,Q,R,T,W, and/or 2)] 

(EROPT((ACC|SKP|ABE))] 

[BFTEK((S|E|A|R})] 

CRECFM(A,B,D,F,M,S,T,U, and/or V)] 

CDIAGNS(TRACE)] 

CLIMCT(search-number) ] 

[BUFOFF ((block-prefix-length))] 
i (( L ))] 

[DSORG ((DAlDAUlPOiPOUlPSiPSU))] 

(DEN ((Oili2i3K))] 



TRTCH 



C 
}E 



ETl 
T 
KEYLEN(key-length) 
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All of the required and optional operands for the ATTRIB command 

are shoMn in the format. Only those of interest to the VS FORTRAN ff~^] 

programmer are described in the follouing paragraphs. For ^J>^ 

complete documentation* see 0S/VS2 TSO Command Language 

Reference. 

Where t 

attr-list-name 

specifies the name for the attribute list. This name can be 
specified later as a parameter of the ALLOCATE command. The 
name must consist of 1 through S alphameric and/or national 
characters. The name must begin Mith an alphabetic or 
national character » and must be different from all other 
attr-li st-names and ddnames that are in existence for your 
terminal session. 

BLKSizKblacksize) 

specifies the block size for the data sets. The block size 
must be a decimal number and must not exceed 32»760 bytes. 
The block size that you specify must be consistent Mith the 
requirements of the RECFM operand. If you specify J 

RECFN(F) 

then the block size must be equal to or greater than the 
logical record length. 

RECFHCF B) 

then the block size must be an integral multiple of the 
logical record length. 

RECFH(V) 

then the block size must be equal to or greater than the 
largest block in the data set. 

RECFM(V B) /^ ) 

then the block size must be equal to or greater than the VV 
largest block in the data set. Since the number of 
logical records can vary» you must estimate the optimum 
block size (and the average number of records for each 
block) based on your knowledge of the application that 
requires the I/O. 

LRECL ( log \ ca I-record- length I 

specifies the length* in bytes* of the largest logical 
record in the data set. You must specify this operand for 
data sets that consist of either fixed-length or 
variable-length records. 

Omit this operand if the data set contains undefined-length 
records. The logical record length must be consistent Mith 
the requirements of the RECFM operand and must not exceed the 
block size (BLKSIZE operand) except for 
variable-length-spanned records. If you specify! 

RECFH(V) or RECFM(y B) 

then the logical record length is the sum of the length 
of the actual data fields plus 4 bytes for a record 
descriptor Mord. 

RECFHCF) or RECFHCF B) 

then the logical record length is the length of the 
actual data fields. 

RECFHCU) 

then you should omit the LRECL operand. 

INPUT 

specifies that the data set Mill be used only as input to a 
processing program. 
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c 






OUTPUT 

specifies that the data set Mill be used only to contain 
output from a processing program. 

EROPT (CACC i SKP | ABE}) 

specifies the option you Mant executed if an error occurs 
Mhen a record is read or written. The options are: 



ACC 



SKP 



ABE 



accepts the block of records in which the error Mas 
found. 



skips the blocks of records in Mhich the error Mas 
found. 



to end the task abnormally. 



RECFri(A,B>D,F>M»s,T»u> and/or V) 

specifies the format and characteristics of the records in 
the data set. The format and characteristics must be 
completely described by one source only. If they are not 
available from any source^ the default Mill be an 
undefined-length record. 

Use the folloMing values Mith the RECFM operand. 

A 

indicates the record contains the RECFM operand. 

indicates the records are blocked, 
indicates variable-length ASCII records, 
indicates the records arQ of fixed-length. 



indicates the records contain machine code control 
characters. 



indicates for fixed-length records, the records are 
written as standard blocks (there must be no truncated 
blocks or unfilled tracks except for the last block or 
track). For variable-length records* a record may span 
more than one block. Exchange buffering, BFTEKCE)*, must 
not be used. 



indicates records may be Mritten onto overflow tracks 
if required. Exchange buffering, BFTEK(E), or chained 
scheduling, OPTCD(C), cannot be used. 



indicates records of undefined length. 



indicates records are of variable length. 



You may specify one or more values for this operand (at least 
one i s requi red) . 
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KEYLENC key- length) 

specifies the length in bytes of each of the keys used to iT^j ' 
locate blocks of records in the data set Mhen the data set \J^ 
resides on a direct access device* The key length must not 
exceed 255 bytes. If an existing data set has standard 
labels* you can omit this operand and let the system retrieve 
the key length from the standard label. If a key length is 
not supplied by any source before you issue an OPEN macro 
instruction* a length of zero (no keys) is assumed. This 
keyword is mutually exclusive Mith TRTCH. 

In FORTRAN the key length must be: 

2 

for an INTEGER)<2 key 

4 

for an INTEGER)«i key 






) 
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CALL COMMAND 



Use the CALL command to load and execute a program that exists in 
executable (load module) form. The program may be user-Mri tten» 
or it may be the VS FORTRAN compiler. 



CALL 



{dsname} 
{dsname(membername) } 

[ *parameter-str i ng* 3 



dsname ( member name ) 

specifies the name of a partitioned data set and the 
membername (program name) to be executed. The membername 
must be enclosed in parentheses. 

parameter-string 

specifies up to 100 characters of information that you want 
to pass to the program as a parameter list. When passing 
parameters to a program^ you should use the standard linkage 
conventions. 



^Liii**^ 



o 
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DELETE COMHAND 



Use the DELETE command to delete one or more data set entries or 
one or more members of a partitioned data set. 



(DELETE) CentrynameC/passMord] C...] 
(DEL) 

CCATALOGCcatnameC/password) ) 3 


[FILE(ddname)] 




(PURGE) 
(PRG) 






(NOPURGE) 
(NPRG) 






ERASE 






(N0ERA5E) 
(NERAS) 






SpRATCH 






(NOSCRATCH) 
(SCR) 






CLUSTER 






(USERCATAL06) 
(UCAT) 




,/ 


(SPACE) 
(SPC) 

(NONVSAM) 
(NVSAM) 

ALIAS 

(GENERATIONDATAGROUP) 
(GOG) 

(PAGESPACE) 
(PGSPC) 





^A^ ) 



All the required and optional operands for the DELETE command are 
shouin in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentation> see 0S/VS2 TSO Command Language 
Reference . 

entrynameC/passMordlty. ..1 

is a required parameter that names the entries to be deleted, 
Ulhen more than one entry i s to be deleted^ the list of entry 
names must be enclosed in parentheses. This parameter must 
be the first parameter following DELETE. 
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passMord 

specifies a passMord for a passuiord-protected entry. 
PassMords may be specified for each entry name» or the 
catalog's passMord may be specified through the CATALOG 
parameter for the catalog that contains the entries to 
be deleted. 

CATALOG(catname[/passMordl ) 

specifies the name of the catalog that contains the entries 
to be deleted. 

catname 

identifies the catalog that contains the entry to be 
deleted. 

passMord 

specifies the master password of the catalog that 
contains the entries to be deleted. 

FXLE(ddname) 

specifies the name of the DD statement that identifies the 
volume that contains the data set to be deleted or identifies 
the entry to be deleted. 

CLUSTER 

specifies that the entry to be deleted is a cluster entry for 
a VSAM data set. 

NONVSAH or NVSAM 

specifies that the entry to be deleted is a non-VSAM data set 
entry. 
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EDIT COHMAND 



Uith EDIT and its subcommands^ you can create^ modify* store* 
submit* retrieve* and delete data sets Mith sequential or 
partitioned data set organi zati on« 



(EDIT) 
{£} 



data- set-name [/passMordl 

[NEMl 
COLD] 



PLI C<Cintegerl C integer23]CCtiAR603)3 
C<C Z i 21 33CCHAR483)] 

PLXF [(Cintegerl [integer233C CHAR 603)3 



L\L ^ L j[j^ ]]LCnAK^oJ/J 



ASM 

COBOL 

VSFORT 

TEXT 

DATA 

CLIST 

CNTL 

VSBASIC 



C5CAN3 
[ N05CAN 3 



CNUM3 C(integerlCinteger23)3 
[N0NUM3 

[BL0CK<integer)3 
CBLKSIZE(integer)3 

CLINE(integer)3 
CLRECL<integer)3 

CCAPS3 
[ASIS3 



All the required and optional operands for the EDIT command are 
shown in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentatiQn* see 0S/VS2 TSO Command Language 
Reference . 

data-set-name 

specifies the name of the data set that you want to create or 
edit. 

passMord 

specifies the password associated with the data-set-name. If 
the password is omitted and that data set is password 
protected* you will be prompted for the data set*s password. 
Read protected partitioned data sets will cause a prompt for 
the password twice* provided it is not entered on the EDIT 
command* or is not the same password as your LOGON userid 
password. 



CLIST 



specifies that the data set identified by the first operand 
is for a command procedure and will contain TSO commands and 
subcommands as statements or records in the data set. The 
data set will be assigned line numbers. 



)) 
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DATA 



Hodes of Operation 



specifies that the data set identified by the first operand 
is for data that may be subsequently retrieved or used as 
input data for processing by an application program. 



VSFORT 

specifies that the data set identified by the first operand 
is for VS FORTRAN statements. 



The EDIT command has tMO modes of operation: input mode and edit 
mode. You enter data into a data set Mhen you ere in input mode. 
You enter subcommands and their operands Mhen you are in edit 
mode. The EDIT subcommands useful for VS FORTRAN are listed in 
Figure 21. 



\ \y 



EDIT Subcommands 

ALLOCATE 

END 

HELP 

INPUT 

PROFILE 

SAVE 



Function 

Allocate data sets 

Ends an edit session 

Explains EDIT subcommands' 

Enters INPUT mode 

Changes library identifier 

Places selected file in a data set 



Figure 21. EDIT Subcommands Useful for VS FORTRAN 



(^gj»' 
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FREE COMMAND 



Use the FREE command to release (deallocate) previously allocated 
data sets that you no longer need. 

Format 



FREE 



DSNAMEC datiset-name- 1 i st ) 
SET(dataset-name-li st) 
DDNAME( f i le-name-1 i st ) 
FILE(fUe-name-list) 
ATTRLI5T(attr-list-names) 



1 CDEST(station-id)3 



CH0LD3 
[N0H0LD3 



KEEP 
DELETE 

rATALQR 

UNCATALOG 



CSYSOUTCclass)] 



Notes to Format 

^Choose one or more of the parameters within braces. 

^DELETE is the only disposition valid for SYSOUT data sets. 

All the required and optional operands for the FREE command are 
shown in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentation^ see 0S/VS2 TSO Command Language 
Reference . 

DATASET or DSNAMEC data-set-name- list) 

specifies one or more data set names that identify the data 
sets that you want to free. The data set name must include 
the descriptive (rightmost) qualifier and may contain a 
member name in parentheses. If you omit this operandi you 
must specify either FILE or DSNAME or the ATTRLIST operand. 

FILE or DDNAMECf Ue-name-list) 

specifies one or more file names that identify the data sets 
to be freed. If you omit this operandi you must specify 
either the DATASET, DSNAME, or ATTRLIST operand. 



^^• 



KEEP 



specifies that the data set is 
after it is freed. 



to be retained by the system 



DELETE 

specifies that the data set i s to be deleted by the system 
after it is freed. DELETE is not valid for data sets 
allocated SHR or for members of a PDS. Only DELETE is valid 
for SYSOUT data sets. 

CATALOG 

specifies that the data set i s to be retained by the system 
in a catalog after it is freed. 

UNCATALOG 

specifies that the data set i s to be removed from the catalog 
after it is freed. The data set is still retained by the 
system. 



) 
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HELP CONMAND 



Use the HELP command or subcommand to obtain information about the 
function* syntax* and operands of commands and subcommands. 

Format 



{HELP} 
{H} 


( sub ) command-name 


C [FUNCTION] [SYNTAX]] 
[[OPERANDS [(list)]]] 

[AU] 
[MSGIDClist)] 





c 



All the required and optional operands for the HELP command are 
shown in the format. Only those of interest to the VS FORTRAN 
programmer are described in the folloujing paragraphs. For 
complete documentation* see 0S/VS2 TSO Command Language 
Reference . 

command-name or subcommand name 

specifies the name of the command or subcommand that you want 
to knoM more about. 

FUNCTION 

specifies that you Mant to know more about the purpose and 
operation of the command or subcommand. 

SYNTAX 

specifies that you Mant to knoM more about the syntax 
required to use the command or subcommand properly. 

OPERANDS ( 1 { st-of -operands ) 

specifies that you want to see explanations of the operands 
for the command or subcommand. When you specify the keyword 
OPERANDS end omit any values* all operands will be 
described. You can specify particular keyword operands that 
you want to have described by including them as values within 
parentheses following the keyword. If you specify a list of 
more than one operand* the operands in the list must be 
separated by commas or blanks. 

ALL 

specifies that you want to see all information available 
concerning the command or subcommand. This is the default 
value if no other keyword operand is specified. 

Help information 

The scope of available information ranges from general to 
specific. The HELP command or subcommand with no operands 
produces a list of valid commands or subcommands and their 
basic functions. From the list you can select the command or 
subcommand most applicable to your needs. If you need more 
information about the selected command or subcommand* you 
may use HELP again* specifying the selected (sub)command 
name as as operand. 
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LINK CONHAND 



Use the LINK command to invoke the linkage editor service program. 
Basically* the linkage editor converts one or more object modules 
(the output modules from compilers) into a load module suitable 
for execution. In doing this» the linkage editor changes all 
symbolic addresses in the object modules into relative addresses. 

Format 






LINK 



(data-set-list) 

[LOAD[ (data-set~name) 3 3 



PRINT 
NOPRINT 



({X }) 

( (data-set-name) ) 



CLIB(data-set-list)3 



[PLICMIX3 


CREFR3 
CN0REFR3 


CTERI13 
CN0TERM3 


CPLIBASE3 


[SCTR3 
CNOSeTRI 


[DCBS(blocksize)3 


[F0RTLIB3 
[C0BLIB3 


C0VLY3 
[N00VLY3 


[AC(authorization 
code) 3 


CMAP3 
CN0MAP3 


[RENT3 
[N0RENT3 




[NCAL3 
CNONCAU 


[SIZE(int 


egerl integer2)3 


[LIST 
CN0LIST3 


[NE3 
CN0Ne3 




CLET3 
tN0LET3 


C0L3 
[N00L3 




[XCAL3 
CN0XCAL3 


[DC3 
[N0DC3 




CXREF3 
CH0XREP3 


CTEST3 
CN0TEST3 




CREUS3 
CN0REUS3 







V^" 



All the required and optional operands for the LINK command are 
shown in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentation* see 0S/VS2 TSO Command Language 
Reference . 



c 



'-T.^ 
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(data-set-list) 

specifics the names of one or more data sets containing your 
object modules and/or linkage editor control statements. 
(See the T50 data set naming conventions.) The specified 
data sets Mill be concatenated Mi thin the output load module 
in the sequence they are included in this operand. If there 
is only a single name in the data-set-li st» parentheses are 
not required unless the single name is a member name of a 
partitioned data set; then» tMO pairs of parentheses are 
requi red> as in^ 

link( (parts) ) 

You may substitute an asterisk (»<) for a data set name to 
indicate that you Mill enter control statements from your 
terminal. The system Mill prompt you to enter the control 
statements. A null line indicates the end of your control 
statements. 

LOAD(data-set-name) 

specifies the name of the partitioned data set that Mill 
contain the load module after processing by the linkage 
editor (see the data set naming conventions). If you omit 
this operandi the system Mill generate a name according to 
the data set naming conventions. 

FORTLZB 

specifies that the partitioned data set named SYSl.FORTLIB 
is to be searched by the linkage editor to locate load 
modules referred to by the module being processed. 



^1^ 



o 
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LOADGO COMMAND 



Use the LOADGO command to load a compiled or assembled program 
into real storage and begin execution. 

Format 



{LOADGO) 
{LOAD} 



(data-set-list) 

{ 'parameters* 3 



PRINT 
HOfSIMI 



({K )) 

( {data-set-name} ) 



CLIB(data-set-list)] 

[PLIBASEl 

CPLICMIX] 

CFORTLIB) 

[C0BLIB3 

C TERM 3 
CNOTERMl 

CRES3 
[NORES] 

[MAPI 
[ N0WAP 3 

CCALL) 
CROCALLI 

[LET] 
C NOLET ] 

CSIZE(integer)] 
CEP (entry-name) 3 
[NAME(program-name)3 



%^' 



All the required and optional operands for the LOADGO command are 
shown in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentation* see OS/VS TSO Command Language Reference . 

(data-set-list) 

specifies the names of one or more object modules and/or load 
modules to be loaded and executed. The names may be data set 
names* names of members of partitioned data sets* or both 
(see the TSO data set naming conventions). When you specify 
more than one name* the frames must be enclosed within 
parentheses and separated from each other by a standard 
delimiter (blank or comma). 

'parameters* 

specifies any parameters that you want to pass to the program 
to be executed. 

FORTLIB 

specifies that the partitioned data set named SYSl. FORTLIB 
is to be searched to locate load modules referred to by the 
module being processed. 
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/\^ STATUS COMNAND 



^^■^ Use the STATUS command to have the status of conventional batch 

jobs displayed at your terminal. You can obtain the status of all 
batch jobsy of several specific batch jobs» or of a single batch 
job. 

This command may be used only by personnel Mho have been given the 

authority to do so by your organization. 

• 

Format 



{STATUS} [(jobname[(jobid)]-list)] 
(ST) 



o 



(jobname[(job{d)]-list) 

specifies the names of the conventional batch jobs for Mhich 
you want to knoM the status. If two or more jobs have the 
same jobname^ the system will display the status of all the 
jobs encountered and supply jobids for identification. When 
more than one jobname is included in the list» the list must 
be enclosed within parentheses. If you do not specify any 
jobnames* you will receive the status of all batch jobs in 
the system whose jobnames consist of your userid and one 
identifying character (alphameric or national). 

The optional jobid subfield may consist of 1 to 8 alphameric 
characters (the first character must be alphabetic or 
national). The jobid is a unique job identifier assigned by 
the job entry subsystem at the time the job is submitted to 
the batch system. 

Note: When you specify a list of jobnames» you must separate 
the jobnames with standard delimiters. 



iO 
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SUBMIT COMMAND 



Use the SUBMIT command to submit one or more batch jobs for 
conventional processing. 

Format 



o 



(SUBMIT) 
{SUB} 



(data-set-list) 



[ NOTIFY ! 
CN0N0TIFY3 



(data-set-list) 

specifies one or more data set names or names of members of 
partitioned data sets that define an input stream (JCL plus 
data). If you specify more than one data set name» enclose 
them in parentheses. 

NOTIFY 

specifies that you are to be notified when your job 
terminates in the background if a JOB statement has not been 
provided. If you have elected not to receive messages* the 
message will be placed in the broadcast data set. 

NONOTIFY 

specifies that a termination message Mill not be issued or 
placed in the broadcast data set. The NONOTIFY keyword is 
only recognized when a JOB statement has not been provided 
with the job that you are processing. 

Note: Data sets that are dynamically allocated by the SUBMIT 
command processor are not automatically freed when the command 
processor terminates. You must explicitly free dynamically 
allocated data sets. 



o 
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TEST COMMAND 



Use the TEST command and subcommands to test a program for proper 
execution. 

Format 



TEST 



[ * data-set-name' ] 

C 'parameters* ] 

C L0AD 3 
C0BJECT3 

CCP3 
C N0CP 3 



\J 



All the required and optional operands for the TEST command are 
shouin in the format. Only those of interest to the VS FORTRAN 
programmer are described in the following paragraphs. For 
complete documentation* see 0S/VS2 TSO Command language 
Reference . 

'data-set>naine* 

specifies the name of the data set containing the program to 
be tested. The program must be a load module that is a member 
of a partitioned data set or it must be an object module. 

A data set name must be specified to test a program that is not 
currently active. (A currently active program is one that has 
abnormally terminated or has been terminated by an attention 
interruption.) 

Note: Mhen specifying the data-set-name for TEST, the name should 
be enclosed by single quotation marks* or the LOAD or object 
qualifier Mill be added to the name specified. If no name is 
specified* TEMPNAME is the member searched for via the TEST 
request. 

CAUTION: The program to be tested should not have the name TEST or 
the name of any existing TSO service routine. For a listing of the 
existing module names, see 0S/VS2 TSO Terminal Monitor Program 
and Service Routines Logic . 

•parameters' 

specifies a list of parameters to be passed to the named 
program. The list must not exceed 100 characters including 
delimiters. 

LOAD 

specifies that the named program is a load module that has 
been processed by the linkage editor and is a member of a 
partitioned data set. This is the default value if both LOAD 
and OBJECT are omitted. 

OBJECT 

specifies that the named prorgram is an object module that 
has not been processed by the linkage editor. The program can 
be contained in a sequential data set or a member of a 
partitioned data set. 

SUBCOMMANDS: Subcommands of the TEST command useful to the VS 
FORTRAN programmer are: 

ASSIGNMENT OF VALUES(=) 

modifies values in virtual storage and in registers. 
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AT 
CALL 



establishes breakpoints at specified locations. f^\ 

initializes registers and initiates processing of the 
program at a specified address* using the standard 
subroutine linkage. 



END 

terminates all operations of the TEST command and the 
program being tested. 

GO 

restarts the program at the point of interruption or at a 
specified address. 

HELP 

lists the subcommands of TEST and explains their function* 
syntax* and operands. 

LZ8T 

displays the contents of a virtual storage area or 
registers. 

LXSTHAP 

displays a map of the user's virtual storage. 

LOAD 

loads a program into virtual storage. 

OFF 

removes breakpoints. 

RUN 

terminates TEST and completes execution of the program. 






C)-^ 
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APPENDIX A. DEVICE INFORMATION 



This appendix gives information regarding specific input/output 
devices that can be used with a VS FORTRAN program. 



WINIMUH AND MAXIHUH BLOCK SIZE VALUES 



The minimum and maximum block sizes that can be specified for 
specific devices arQ shown in Figure 22. 



(C 



Device 
Type 


Fixed and 
Block 


Undefined Records 
Size (Bytes) 


Variable 
Block si 


Records 
ze (Bytes) 






Minimum 


Maximum 


Minimum 


Maximum 


Card Reader 




1 




80 




9 


80 


Card Punch 




1 




81 




9 


89 


Printer Line Length 
(1403, 3800, etc.) 
120 characters 
132 characters 
144 characters 
150 characters 




1 

1 
1 
1 




121 
133 
145 
151 




9 
9 
9 
9 


129 
141 
153 
159 


Magnetic Tape 




18 




32760 




18 


32760 


Direct Access 
2314 
3330 
3340 
3350 




1 
1 
I 

1 




7294 
13030 

8368 
19069 




9 
9 
9 
9 


7294 
13030 

8368 
19069 


Notes: 
















1. For DOS/VSE Fixed 


Bio 


ck Archi 


tecture devices, see 


the manua 


Is describing the 


devices you*re using. 














2. For direct access devices with 
32760 for each device. 


the trac 


:k overflow 


feature. 


the maximum is 



Figure 22. VS FORTRAN Devices — Minimum and Maximum Block Sizes 
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DIRECT ACCESS DEVICE CAPACITIES 



1. For DOS/VSE fixed block architecture devices^ see the manuals describing the 
devices you are using. 

2. For the 3375 and 3380 devices^ device information Mill be provided after the 
devices are available. 

Figure 23. Direct Access Device Capacities 
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The capacities of specific direct access devices ara shown in x.y 
Figure 23. 



Device 
Type 


Track 
Capacity 


Tracks per 
Cylinder 


Number of 
cylinders 


Total 
Capacity 


2314(2319) 


7294 


20 




100 




19,176,000 


3330 


13030 


19 




404 




101,751,270 


3330-11 


13030 


19 




808 




203,502,340 


3340 


8535 


12 




348 




34,944,768 


3350 


19254 


30 




815 




317,498,850 


Notes: 















\^^ 
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APPENDIX B. COMPILER OPTIONS 



The VS FORTRAN compiler options let you specify details about the 
input source program and request specific forms of compilation 
output. HoM the options Bra specified depends upon the system you 
are using: 

• In OS/VS» the options are specified by using the FARM field of 
the EXEC job control statement. See the "FARM Field Options" 
descriptions folloMing the EXEC statement in the OS/VS 
section. 

• In DOS/VSEf they are specified as values of the FARM field of 
the EXEC job control statement or on a SFROCESS statement. 

• In VM/370-CMS/ they oro specified as options of the FORTVS and 
RUN command. 

In the following paragraphs^ each of the compiler options is 
briefly explained. Defaults are supplied Mith each options. 
Check uiith your system administrator for the ones in effect 
for your organization. 

DECKlNODECK 

specifies Mhether or not the object module in card image 
format is to be produced. Abbreviation: DfNOD 

FIPS (SiF)fNOFIPS 

specifies whether or not standard language flagging i s to be 
performed^ and» if it is» the standard language flagging 
level: 

NOFIFS specifies no standard language flagging. 

FIFS (S) specifies subset standard language flagging. 

FIFS (F) specifies full standard language flagging. 

FLAG (IIUlEiS) 

Specifies the level of diagnostic messages to be written: 

FLAG (I) specifies that all messages are to be written. 

FLAG CW) specifies that error messages (return code 4) 
BrB to be written. 

FLAG (E) specifies that error messages (return code 8) 
and severe error messages (return code 12 or higher) are 
to be written. 

FLAG (S) specifies that only severe error messages 
(return code 12 or higher) are to be written. 

FREE I FIXED 

indicates whether the input source program is in free form or 
in fixed form. 

GOSTMTlNOGOSTMT 

specifies whether or not internal sequence numbers (for 
traceback purposes) are to be generated for a call sequence 
to a subprogram. 
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LANGLVL (661771 



.VU IOOI//J /f~\) 

specifies the language level in Mhich the input source u J 
program is writtens ^-^ 

LANGLVL (66) specifies the old FORTRAN level. 

LANGLVL (77) specifies the current FORTRAN level. 

LZNECOUNT (number) 

specifies the maximum number of lines on each page of the 
printed source listing. Abbreviation^ LC 

LZSTlNOLZST 

specifies whether or not the object module listing is to be 
Mritten. 

MAPINOMAP^ 

specifies Mnetridr cp not fi table of source program nsmss and 
statement labels Is to be written. 

NAHE(name) 

for old FORTRAN programs only> specifies the name to be given 
to a main program. 

Uhen NAME is omitted* the main program is named MAIN. 

OBJECTlNOOBJECT 

specifies whether or not the object module is to be produced. 
Abbreviation: OBJiNOOBJ 

OPTXHXZE (0111213) | NOOPTZHIZE 

specifies the optimizing level to be used during 
compilation^ 

OPTIMIZE (0) OR NOOPTimZE specifies no optimization. :^} 

OPTIMIZE (1) specifies register and branch optimization. ^~*^^ 

OPTIMIZE (2) specifies partial code-movement 
optimization^ code movement that can't introduce logic 
changes into the program. 

OPTIMIZE (3) specifies full code-movement optimization^ 
which can possibly introduce logic changes into the 
program. 

Abbreviation: OPTlNOOPT 

SOURCE INOSOURCE 

specifies whether or not the source listing is to be 
produced. Abbreviation^ SiNOS 

TERMINAL INOTERNZNAL 

specifies whether or not statistics and messages are to be 
directed to the SYSTERM data set. TERMINAL also produces an 
indexed summary of statistics and messages for each 
compilation. Abbreviation: TERM|NOTERN 

XREFlNOXREF 

specifies whether or not a cross-reference listing is to be 
produced. The cross-reference listing includes all variables 
and labels used in the source program. Abbreviation: XiNOX 
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